【CSDN】【请问在VB中工具栏的按钮下拉菜单是如何实现的】

Question

我的具体做法是这样的首先在工具栏添加按钮时选择属性tbrDropDown,然后在下面的ButtonMenus 属性中添加各项菜单,现在的问题是如何单击这个按钮时自动会弹出下拉菜单,而不是仅仅在单击小三角按钮时才弹出下拉菜单,请问这段代码是如何写的,请给个小例子,谢谢

Answer 1

你可以在窗体上作一个菜单并隐藏起来，然后PopupMenu
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Me.PopupMenu FFF
End Select
End Sub

Answer 2

to  cso(sjxsoft) :
菜单已经在工具栏的这个按钮下面已经做好了,我说接下来该如何处理

Answer 3

我的具体做法是这样的首先在工具栏添加按钮时选择属性tbrDropDown,然后在下面的ButtonMenus 属性中添加各项菜单,现在的问题是如何单击这个按钮时自动会弹出下拉菜单,而不是仅仅在单击小三角按钮时才弹出下拉菜单,请问这段代码是如何写的,请给个小例子,谢谢

Answer 4

//你可以在窗体上作一个菜单并隐藏起来，然后PopupMenu通常就是这么做的

Answer 5

//你可以在窗体上作一个菜单并隐藏起来，然后PopupMenu通常就是这么做的

Answer 6

不行呀,那菜单的位置呢...这样很不好的像OFFICE那样,一点按钮就会自动有此工具栏的按钮菜单,然后再进行选择...

Answer 7

可以指定呀，接口如下：
Sub PopupMenu(Menu As object, [Flags], [X], [Y], [DefaultMenu])一个简单的例子，你需要微调一下参数
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 2
        PopupMenu menu_test, , Button.Index * Button.Width, Button.Height
    End Select
End Sub

Answer 8

不是这会事关键是M$在设计“Windows Common Controls 6.0”控件时只用了Shell32.dll 4.71标准（现在是6.0（WinXP\2003下）标准）。Shell32.dll是随IE更新的，基本上与IE版本一致（这就是Windows必须捆绑IE的原因）
那时的ToolBar还不支持下拉按键只有用SDK编程知识
自己给按键加上BTNS_WholeDropDown风格（我是在VS.Net 2003版的MSDN中查到的）

Answer 9

要知道，IE也是这样模拟的如果用Microsoft Windows Common Controls 6.0，就不能修改风格了，因为那个完全是独立的mscomctl.ocx，不是Windows标准的（虽然外观如此）如果要用zyl910的方法，试试5.0版的

Answer 10

为何不用FlatBttn控件？或者我没闹明白搂主的问题。