vb 关于toolbar工具栏控件问题，附带图片

刚学这个控件，做了个下拉的菜单，如图所示：
第一张图

第二张图

我的问题是：怎么做一个事件，当点击图片上的1、2、3、4、5、6、7、8菜单时，各自执行各自的代码，不知道怎么写，求教.....
应该是select case语句，可是不知道用哪个事件.....求解？？？

举报该问题

其他回答

第1个回答 2013-03-06

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu
Case "1"
Debug.Print 333
Case "2"
Debug.Print 222
Case "3"
Debug.Print 111

End Select

End Sub追问

select case buttonmenu ←此命令无效，应该是select case buttonmenu.index 这样才对吧，
这种我早就知道了，可惜，对每个按钮中的菜单项的index值都有效，比如上图程序，按“1”会输出333，按“5”也会输出333，这样不符合我的要求，我要唯一的索引命令

追答

可以用这个

ButtonMenu.Text

其实默认ButtonMenu就是ButtonMenu.Text不知道你的为什么会出错。

可以自动生过程，然后复制哪个对象变量ButtonMenu。

追问

哦。还有默认值，我这没有。不过buttonmenu.text获取下拉菜单名字的方法确实可以，对了，那个key属性也可以实现吗

追答

可以，它是你在工具栏属性里设置的按钮菜单的关键字。

本回答被提问者采纳

第2个回答 2013-03-06

Select Case Button.key
Case "1"
…………
Case "2"
……
Case "3"
……
Case "4"
……
Case "5"
……
End Select
这样应该能达到你想要的效果追问

key指向的是toolbar控件的关键字值，用button.key命令只能获取到按钮的关键字，能的到下拉菜单的关键字吗

相似回答

vb 关于toolbar工具栏控件问题,附带图片答：Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)Select Case ButtonMenu Case "1"Debug.Print 333 Case "2"Debug.Print 222 Case "3"Debug.Print 111 End Select End Sub

VB Toolbar的按钮上怎么加图片答：具体方法：窗体上添加一个ImageList 控件。鼠标选中该空间，右键-属性-图像。逐一插入图片确定-。对Toolbar对象通用页-图像列表选ImageList 控件。按钮页添加按钮，按钮索引对应图像索引。Toolbar空间上就出现需要的按钮和图片。

简单VB问题答：（1）ToolBar控件的属性页用鼠标右击ToolBar控件，在弹出式菜单中选择属性，则出现图4.7所示属性页对话框界面。对话框共有通用、按钮与图片三个选项卡，三个选项卡的作用如下。通用选项卡用于设置工具栏的样式、外观、鼠标指针、按钮宽度、图像列表等。按钮选项卡用于按钮插入、删除、索引、标题、样式等...

VB中用什么控件可以为工具栏添加多副图片?答：添加ImageList控件到窗体中右键点击，选择属性在打开的属性对话框中先在通用中，选择图像的大小一般工具栏中的小图标，选择16*16 再选择图像,点插入图片，将你需要的图片都添加上最好给每个图片一个关键字（不给也行，只是在编程中，为了方便引用，最好给一个）然后回到工具栏同样是在属性对话...