目的:将菜单子项名称存在字符串变量s中,要求通过变化s的控制菜单。
其实是这样的:
我想提取权限表中的菜单名称,如果权限为FALSE,则相应的菜单项不可用
思路如下:
Dim t As Variant(或MENU)
Dim s As String
set s = ”zlcx_xmcx“ ’从表里提取的字段,代表菜单项的NAME值
Set t = s
t.Enabled = False 欢迎提出一些好的意见,在这里先谢了!
其实是这样的:
我想提取权限表中的菜单名称,如果权限为FALSE,则相应的菜单项不可用
思路如下:
Dim t As Variant(或MENU)
Dim s As String
set s = ”zlcx_xmcx“ ’从表里提取的字段,代表菜单项的NAME值
Set t = s
t.Enabled = False 欢迎提出一些好的意见,在这里先谢了!
mnuItem5(intMenu)这是什么意思?
//Dim s As String
//set s = ”zlcx_xmcx“ ’从表里提取的字段,代表菜单项的NAME值
//Set t = s
//t.Enabled = False 被动式Dim C As Object
For Each C In Me.Controls
If C.Name = "zlcx_xmcx" Then
Set T = C
T.Enabled = False
End If
Next C