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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息