7,763
社区成员
发帖
与我相关
我的任务
分享如何遍历菜单?根据用户的不同权限在系统启动时，设置各菜单项目的显示或隐藏。
如何遍历菜单?根据用户的不同权限在系统启动时，设置各菜单项目的显示或隐藏。
...全文
请发表友善的回复…
发表回复
Cooly 2003-03-05
- 打赏
- 举报
或者
Private Sub Form_Load()
Dim m As Object
For Each m In Me.Controls
If TypeName(m) = "Menu" Then
'做相应的判断及处理
End If
Next
End Sub
Private Sub Form_Load()
Dim m As Object
For Each m In Me.Controls
If TypeName(m) = "Menu" Then
'做相应的判断及处理
End If
Next
End Sub
Cooly 2003-03-05
- 打赏
- 举报
首先，菜单项的名字要规范,例如：mnu_file,mnu_exit,mnu_copy
然后，在Form_load中添加
Dim m As Object
On Error Resume Next
For Each m In Me.Controls
if instr(m,"mnu_")<>0 then
'判断权限与菜单名称对应，设置是否显示即可
'm.name 菜单名称
'm.visible 菜单显示属性
end if
Next
然后，在Form_load中添加
Dim m As Object
On Error Resume Next
For Each m In Me.Controls
if instr(m,"mnu_")<>0 then
'判断权限与菜单名称对应，设置是否显示即可
'm.name 菜单名称
'm.visible 菜单显示属性
end if
Next
jyd30 2003-03-05
- 打赏
- 举报
怎样循环，具体点.
饮水需思源 2003-03-05
- 打赏
- 举报
应该是窗体加载时用代码做循环吧
northwolves 2003-03-05
- 打赏
- 举报
Private Sub Form_Load()
For Each Control In Me.Controls
If TypeOf Control Is VB.Menu Then MsgBox Control.Name '做相应的判断及处理
Next
End Sub
For Each Control In Me.Controls
If TypeOf Control Is VB.Menu Then MsgBox Control.Name '做相应的判断及处理
Next
End Sub
