很簡單啊,調他的事件啊。 下面就是按三角的事件。 Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button) End Sub你在下面的事件中調用上面的。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub調用代碼: call Toolbar1_ButtonDropDown(button)
调用事件的方法最简单...楼上的没错。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) call Toolbar1_ButtonDropDown(button) End Sub另外一种方法,即是弹出式菜单,popupMenu方法来实现。
你要是要,给个邮件给我,[email protected]
下面就是按三角的事件。
Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
End Sub你在下面的事件中調用上面的。
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub調用代碼:
call Toolbar1_ButtonDropDown(button)
call Toolbar1_ButtonDropDown(button)
End Sub另外一种方法,即是弹出式菜单,popupMenu方法来实现。