在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、启动VB6.0，创建一个标准工程。圆租

2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。

3、在d出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”橘姿兆表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见我们刚才编辑的菜单名称。

4、在显示区中单击已经建好的菜单下面，再创建一个菜单。

5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，我们就可以通过编辑区上的册氏方向键来实现，单击右方向键按钮后，我们会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。

6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

---