VB的菜单编辑器（MENU（控件））的按钮可以遍历吗？

[jingshong]

VB的菜单编辑器（MENU（控件））的按钮可以遍历吗？并设置为是否可用吗？

[jhone99]

dim conts as control
for each conts in me.controls
if lcase(typename(conts))="menu" then
debug.print conts.caption
debug.print conts.name
conts.Enabled=True '设可用
conts.Enabled=False '设不可用
...........
endif
next

[dingyanwei]

没太明白什么意思。

[SYSSZ]

Private Sub Form_Load()
Dim a   As Object
  For Each a In Me.Controls
        If TypeOf a Is Menu Then
        Debug.Print a.Caption
        Debug.Print a.Name
    End If
  Next
End Sub

[jhone99]

如果要选择哪个菜单可用或不可用

  dim  conts  as  control
  
  for  each  conts  in  me.controls  
        if  lcase(typename(conts))="menu"  then  
              select case  conts.name
                  case "mnuName1"
                      conts.Enabled=True '设可用
                    case "mnuName2"                    
                         conts.Enabled=False '设不可用
                      
                  ........... 
              end select 
        end if  
  next

[brancyc]

学习了，不错