(整)遍历菜单
遍历菜单
————————-
Option Explicit
Dim conts As Control
Private Sub Command1_Click()
For Each conts In Me.Controls
If LCase(TypeName(conts)) = “menu” Then
Debug.Print conts.Caption
Debug.Print conts.Name
End If
Next
End Sub
Private Sub Form_Load()
End Sub
