在VB中怎样为工具栏上的按钮指定一个快捷菜单

1、在工具栏属性页的“按钮”页中，找到你要添加下拉菜单的按钮，例如是第一个按钮，属性页下面有“添加按钮菜单”，此时“索引”文本框可用，其值自动变为“1”。

2、添加代码方法只是把工具栏按钮单击事件做一下修改，将单击事件中的Button改为ButtonMenu

这是工具栏按钮单击事件:

Private

Sub

Toolbar1_ButtonClick(ByVal

Button

As

MSComctlLib.Button)

(1)使用“索引”

Private

Sub

Toolbar1_ButtonMenuClick(ByVal

ButtonMenu

As

MSComctlLib.ButtonMenu)

Select

Case

ButtonMenu.Index

Case

1

……

Case

2

……

End

Select

End

Sub

(2)使用关键字，在属性页中，按钮菜单一栏也有“关键字”，设置相应唯一的关键字，则按以下代码

Private

Sub

Toolbar1_ButtonMenuClick(ByVal

ButtonMenu

As

MSComctlLib.ButtonMenu)

Select

Case

ButtonMenu.Key

Case

1

……

Case

2

……

End

Select

End

Sub

1、直接在vb的相关窗口中，选择打开标准EXE。

2、这个时候如果没问题，就继续通过鼠标右键点击菜单编辑器进行跳转。

3、下一步d出新的对话框，需要根据实际情况确定加入的子菜单。

4、这样一来会看到图示的结果，即可达到目的了。

第一步，在编程环境的菜单里选“工具”、“菜单编辑器”，就会d出一个“菜单编辑器”窗口。

第二步，在窗口里的最上面一行输入“查看”，在“快捷键”里输入“Alt-E”,然后“下一个”

第三步，同第二步一样输入“编辑”

第四步，同第二步一样输入“帮助”

第五步，点“确定”，就会返回到窗体界面，菜单已经加好了。

---