先在ToolBar里增加好要使用的按钮(注意使用Key) 然后在ToolBar的ButtonClick事件中写下 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "Form1" Form1.Show Case "Form2" Form2.Show End Select End Sub
先在ToolBar里增加好要使用的按钮(注意使用Key) 然后在ToolBar的ButtonClick事件中写下 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "Menu1" PoupuMenu Menu1 Case "Menu2" PoupuMenu Menu2 End Select End Sub
然后在ToolBar的ButtonClick事件中写下
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Form1"
Form1.Show
Case "Form2"
Form2.Show
End Select
End Sub
然后在ToolBar的ButtonClick事件中写下
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Menu1"
PoupuMenu Menu1
Case "Menu2"
PoupuMenu Menu2
End Select
End Sub