＋设为首页 ＋添加到收藏夹
如何遍历菜单?根据用户的不同权限在系统启动时，设置各菜单项目的显示或隐藏。
应该是窗体加载时用代码做循环吧
首先，菜单项的名字要规范,例如：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
或者
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()
For Each Control In Me.Controls
If TypeOf Control Is VB.Menu Then MsgBox Control.Name 做相应的判断及处理
Next
End Sub
