==问题==:单击Toolbar1上的按钮，如何让当前点击的按钮字体显示指定的红色，其余为蓝色？

Question

Toolbar1的ButtonClick(ByVal Button As MSComctlLib.Button)事件好像一次只能识别当前选中的按钮，不能对其他按钮进行属性设置操作，我一菜鸟，说的不对请大家指正，谢谢先！

Answer 1

toolbar的button不能改变字体颜色的吧~~

Answer 2

可以用 Toolbar1.Buttons(Index) 或 Toolbar1.Buttons("<key>") 来引用

Answer 3

toolbar的按钮不能改变字体颜色,加个imagelist吧
Private Sub Form_Load()
    Toolbar1.Buttons.Add , , "1"
    Toolbar1.Buttons.Add , , "2"
    Set Toolbar1.ImageList = ImageList1
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button = 1 Then
        Toolbar1.Buttons.Item(1).Image = 1
        Toolbar1.Buttons.Item(2).Image = 2
    End If
End Sub

Answer 4

切换按钮文字颜色，可以通过设置不同的按钮图片来解决。在你的 Imagelist 控件中，为每个按钮预备 2 个不同颜色文字的图片，在相应的事件中切换就可以了。

Answer 5

添加文本控件数组到Toolbar1上，通过index与按钮的index对应,余下的操作文本控件属性即可，稍微麻烦的就是位置上需要细心调整。

Answer 6

亏你想得出！
你用picturebox我也就不说你了
你居然用textbox!!!
'======================================
用户一点，嘿，发现上面还能写字，真神奇~~