对各个按扭设置不同的关键字,如按扭1为:a 按扭2为:b 则双击工具栏写入以下代码: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "a" …… '按扭1要执行的代码 Case "b" …… '按扭要执行的代码 end Select end Sub
添加ButtonMenuClick事件 Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
'添加你的代码 End Sub
就像VB IDE中标准工具栏中的"添加窗体"这种按钮格式,右边有箭头,带下拉菜单的,有用过吗?
下拉的时候,你会设置其按纽菜单下拉的关键字,比如NewContactPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key Case "NewContact" msgbox "按了联络人项目"
则双击工具栏写入以下代码:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "a"
…… '按扭1要执行的代码
Case "b"
…… '按扭要执行的代码
end Select
end Sub
Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
'添加你的代码
End Sub
Select Case ButtonMenu.Key
Case "NewContact"
msgbox "按了联络人项目"
End Select
End Sub