VB工具栏下拉菜单事件
答案:2 悬赏:0 手机版
解决时间 2021-03-18 13:46
- 提问者网友：却不属于对方
- 2021-03-17 20:54
我想在如“百度知道”里面添加事件代码，怎么写。
最佳答案
- 五星知识达人网友：由着我着迷
- 2021-03-17 22:11
ToolBar工具栏楼主会添加吧。具体下拉菜单的格式为Toolbar1.Buttons.Item(1).ButtonMenus.Item (1)假设为第一个按钮的第一个下拉菜单。
全部回答
- 1楼网友：梦中风几里
- 2021-03-17 23:37
option explicit
private sub toolbar1_buttondropdown(byval button as mscomctllib.button)
with button
select case .key
case "打开"
if int(rnd * 2) = 1 then
.buttonmenus(1).enabled = false
.buttonmenus(2).enabled = true
else
.buttonmenus(2).enabled = false
.buttonmenus(1).enabled = true
end if
case "保存"
end select
end with
end sub
'下拉菜单事件
private sub toolbar1_buttonmenuclick(byval buttonmenu as mscomctllib.buttonmenu)
select case buttonmenu.key '也可以用text
case "a"
print "a"
case "b"
print "b"
case "c"
print "c"
case "d"
print "d"
end select
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯