如何遍历菜单?根据用户的不同权限在系统启动时，设置各菜单项目的显示或隐藏。

Question

首先，菜单项的名字要规范,例如：mnu_file,mnu_exit,mnu_copy然后，在Form_load中添加
Dim m As Object
On Error Resume NextFor Each m In Me.Controls
    if instr(m,"mnu_")<>0 then
       '判断权限与菜单名称对应，设置是否显示即可
       'm.name 菜单名称
       'm.visible 菜单显示属性
    end if
Next

Answer 1

或者
Private Sub Form_Load()
Dim m As Object
For Each m In Me.Controls
    If TypeName(m) = "Menu" Then
       '做相应的判断及处理
    End If
Next
End Sub

Answer 2

Private Sub Form_Load()
For Each Control In Me.Controls
    If TypeOf Control Is VB.Menu Then MsgBox Control.Name   '做相应的判断及处理
Next
End Sub