VB工具栏控件的问题

Question

我想问一下就是那个,在VB里面添加的工具栏控件,可以给每个工具栏按钮添加下拉的选项,那么选项这个怎么添加代码呀?????

Answer 1

Toolbar1.Buttons(1).ButtonMenus.Add 1, , "test"
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

Private Sub Form_Load()
Toolbar1.Buttons(1).ButtonMenus.Add 1, "add", "add"
Toolbar1.Buttons(1).ButtonMenus.Add 1, "view", "view"
Toolbar1.Buttons(1).ButtonMenus.Add 1, "send", "send"
Toolbar1.Buttons(1).ButtonMenus.Add 1, "check", "check"
End SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
    Case "add"
   MsgBox "菜单add"
    Case "view"
    MsgBox "菜单view"
    Case "send"
     MsgBox "菜单send"
    Case "check"
    MsgBox "菜单check"
End Select
End Sub