请问toolbar工具栏的按扭问题

Question

我想要第二个按扭、第三按扭和第八个按扭组成一组。
可是设置成组，vb就把二、三合为一组，第八个按扭单独一组。问大家怎么实现呀！谢谢了

Answer 1

to getian(葛藤) 
   在Toolbar1_ButtonClick控制无效呀！要在哪里控制
我在按下时操作
case "a2"'第二个按扭
Button.value=tbrPressed
Toolbar1.Buttons(3).value=tbrUnpressed
case "a3"'第三个按扭
Button.value=tbrPressed
Toolbar1.Buttons(2).value=tbrUnpressed

Answer 2

我做过这样的效果，你不是已经基本上写出来了吗？
假定第2个按钮关键字为a2，第3个为a3，第8个为a8然后在属性页中设置好a2和a3为一组，a8的按钮状态由编程来模拟按下和释放，代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case ...Case a2
    Toolbar1.Buttons("a8").Value=tbrPressed
    ....'打开相应窗体
Case a3
    Toolbar1.Buttons("a8").Value=tbrPressed
    ....'打开相应窗体
Case ...Case a8
    Toolbar1.Buttons("a2").Value=tbrPressed
    Toolbar1.Buttons("a3").Value=tbrPressed
    .... '打开相应窗体
Case ElseEnd Select
End Sub这样一来，不是可以让用户认为是一组的按钮的感觉了吗？？

Answer 3

刚刚的搞错了！！！！！你先在属性页中设置a2，a3和a8样式为tbrButtonGroup，然后在ButtonClick中写入以下代码：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "a1"
    Toolbar1.Buttons("a8").Value = tbrUnpressed
    .... '打开相应窗体
Case "a2"
    Toolbar1.Buttons("a8").Value = tbrUnpressed
    .... '打开相应窗体
Case "a8"
    Toolbar1.Buttons("a1").Value = tbrUnpressed
    Toolbar1.Buttons("a2").Value = tbrUnpressed    
    .... '打开相应窗体
End Select
End Sub你可以试一下。

Answer 4

to Gutta(冯大狂)
 这个a8按下去就没按下的标识,如果在a8里增加按下标识
Case "a8"
    Toolbar1.Buttons("2").Value = tbrUnpressed
    Toolbar1.Buttons("3").Value = tbrUnpressed 
    Button.value= tbrPressed则按2和3的按扭时,8的回不上来！真是郁闷！