比如函数名称:SetEnabledim e = Args(0)
Dim kk As Boolean
Dim pg As WinForm.TabPage
pg = e.Form.Controls("TabControl1").TabPages(1)
For Each c As Control In e.Form.Controls
If Typeof c Is WinForm.Table Then
kk= True
Exit For
End If
Next
If kk Then
pg.Enabled = False '包含'pg.Enabled = False
Else
pg.Enabled = True '不包含
End If
窗口AfterLoad事件调用代码
Functions.Execute("SetEnable",e)