我也来接分:
Private Sub Command1_Click()
Dim mu As Object
For Each mu In Me.Controls
If UCase(TypeName(mu)) = "MENU" Then
Debug.Print mu.Caption & mu.Name
End If
Next
End Sub
Private Sub Command1_Click()
Dim mu As Object
For Each mu In Me.Controls
If UCase(TypeName(mu)) = "MENU" Then
Debug.Print mu.Caption
End If
Next
End Sub