关于工具栏ToolBar的ToolButton的图片设置

Question

问题：
在“资源管理器”上方工具栏的图标，在普通状态下为灰，但是当鼠标移动到上方时，会显示彩色的图表，请问是如何实现的，ToolButton并没有OnEnter等事件，
该如何做？？？

Answer 1

我不知道你说的资源管理器指哪里的?
我做过一个.
你看看
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.Key
        Case "员工管理"
              employer_frm.Show
        Case "书籍管理"
              book_frm.Show
        Case "学生管理"
              student_frm.Show
        Case "借阅管理"
              issuebooks_frm.Show
        Case "软件设置"
              FrmSetBasic.Show
        Case "系统配置"
              Call StartSysInfo
        Case "帮助丛书"
              SendKeys "{F1}"
              Shell "hh.exe " + App.Path + "\Help.chm", 1
        Case "联系我们"
              Call sendemail
                  
        Case "注销用户"
              If MsgBox("确定要注销吗?", vbQuestion + vbOKCancel, "注销") = vbOK Then
                 Unload MDIForm1
                 Call Main
              End If
        Case "退出系统"
              Unload Me
       
    End Select
End Sub

Answer 2

你查button的属性，有个属性指明可放四个图片，分别对四种状态。

Answer 3

这个不是在OnEnter事件中做的，主要是设置ToolBar的几个ImagesList，如Images，HostImages,disabledImages属性在系统在窗体上加3个ImageList分别设置toolbar的那3个属性，在把toolbar的flat属性设为True，就可以了，记住图片在几个ImgaeList中的顺序要一致