Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) 判断 ButtonMenu.Parent.textEnd Sub
那就先判断是哪个按纽的子菜单 Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Parent.Key Case "a" Select Case ButtonMenu.Index Case 1 Case 2 End Select Case "b" Select Case ButtonMenu.Index Case 1 Case 2 End Select End Select End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "a"
End Select
End Sub
判断 ButtonMenu.Parent.textEnd Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Parent.Key
Case "a"
Select Case ButtonMenu.Index
Case 1
Case 2
End Select
Case "b"
Select Case ButtonMenu.Index
Case 1
Case 2
End Select
End Select
End Sub