主题：内部函数传e

老师，内部函数传e还是没怎么搞懂，请老师看看

内部函数代码如下：

Dim e As Object = Args(0)
Dim dr As DataRow = DataTables("用户管理").Find("姓名 = '" & _UserName & "'")
If dr Is Nothing Then
    MessageBox.Show("你没有该权限！", "提示", MessageBoxButtons.OK)
    Return ""    '该返回那个值，不在执行后续按钮中新增的代码？
Else
    Dim Str As String = dr("功能权限")
    Dim nm = e.sender.Name
    If Str.IndexOf(nm) = -1 Then '0满足条件，-1不满足条件
        MessageBox.Show("你没有权限")
        Return ""   '该返回那个值，不在执行后续按钮中新增的代码？
    End If
End If

 

窗口中按钮调用代码如下：

Functions.Execute("功能权限",e,"新增")
Tables("中标项目管理").AddNew()

 

Return true

Functions.Execute("功能权限",e,"新增")

怎么把按钮名称传到内部函数呢，调用的时候在写一次按钮名称，觉得不方便。

 

Dim e As Object = Args(0)
Dim dr As DataRow = DataTables("用户管理").Find("姓名 = '" & _UserName & "'")
If dr Is Nothing Then
    MessageBox.Show("你没有权限!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return True
Else
    Dim Str As String = dr("功能权限")
    Dim nm = e.sender.Name
    If Str.IndexOf(nm) = -1 Then '0满足条件，-1不满足条件
        MessageBox.Show("你没有权限!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return True
    End If
End If

如果是在click事件里使用的，和正常方式使用e参数即可，比如e.sender就是正在点击的按钮

明白了，直接这样就行了

Functions.Execute("功能权限",e)