您的位置：程序门 -> vb -> 控件

紧急跪求~~toolbar工具栏的使用

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

紧急跪求~~toolbar工具栏的使用

发表于：2007-06-16 20:28:46 楼主

toolbar工具栏在一个按钮的样式里设置为5-tbrdropdown并在下方设置增加按钮菜单

在运行后工具栏的按钮旁边出现三角行下拉菜单

请问怎么对下拉菜单编写事件代码

发表于：2007-06-17 00:21:071楼得分:0

private sub toolbar1_buttonmenuclick（byval buttonmenu as mscomctllib.buttonmenu)

end sub

发表于：2007-06-17 07:28:022楼得分:0

谢谢这位大哥
但是我试了一下如果里面有两个这样属性的按钮
不能识别出是哪个下的
我用了
private sub toolbar1_buttonmenuclick（byval buttonmenu as mscomctllib.buttonmenu)
msgbox buttonmenu.index
end sub
点了第1个工具栏下的第1个按钮弹出了 1 这是没什么问题
可是点了第2个工具栏下的第1个按钮还是弹出了 1
那么请问怎么用index判断是按钮呢?

发表于：2007-06-17 11:14:383楼得分:0

不可能吧
private sub toolbar1_buttonmenuclick（byval buttonmenu as mscomctllib.buttonmenu)
msgbox "工具条1: " & buttonmenu.index
end sub

private sub toolbar2_buttonmenuclick（byval buttonmenu as mscomctllib.buttonmenu)
msgbox "工具条2: " & buttonmenu.index
end sub

发表于：2007-06-17 12:23:364楼得分:0

hpygzhx520
您好
你理解错了我的意思
我不是说 toolbar2、 toolbar1
我是说同在 toolbar1里面有两个按钮都有子菜单的情况下

发表于：2007-06-22 15:44:125楼得分:0

private sub form_load（)
dim b as button
with toolbar1
set b = .buttons.add（1, "k1 ", "k1 ")
b.style = tbrdropdown
b.buttonmenus.add 1, "m1 ", "m1 "
b.buttonmenus.add 2, "m2 ", "m2 "

set b = .buttons.add（2, "k2 ", "k2 ")
b.style = tbrdropdown
b.buttonmenus.add 1, "m3 ", "m3 "
b.buttonmenus.add 2, "m4 ", "m4 "
end with
end sub

private sub toolbar1_buttonmenuclick（byval buttonmenu as mscomctllib.buttonmenu)
msgbox buttonmenu.key
end sub

给分

发表于：2007-06-23 09:27:556楼得分:0

隻在命名不相同就可以了,用index不好用
直接判斷它的名字就可以了

发表于：2007-06-23 11:54:307楼得分:0

添加菜单的时候设置关键字，然后用buttonmenu.key

发表于：2007-06-23 13:48:018楼得分:0

private sub toolbar1_buttonclick（byval button as mscomctllib.button)
select case button.key
case "add " 'add為按鈕的關鍵字
mnuadd_click '引發mnuadd_click事件
case "edit "
mnuedit_click
case "select "
mnuselect_click
case "print "
mnuprint_click
case "export "
mnuexport_click
case "exit "
mnuexit_click
case "refresh "
mnurefresh_click
end select
end sub

发表于：2007-06-23 16:43:539楼得分:0

发表于：2007-06-23 18:55:0110楼得分:0

谢谢各位兄弟~~~~~~

下一篇：用rs.addnew追加数据时,如何判断datagrid中的数据是否存在呢??
上一篇：如何控制listview 的scrollbar??

其他资讯