急急!!!!!

Question

有一个窗体，其中有一Toolbar控件，Toolbar控件有2个按钮，如果按1按钮窗体显示一种mouseIcon图标，如果按2按钮窗体显示另一种mouseIcon图标，如何实现。

Answer 1

试试
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "key1"
            Screen.MouseIcon = LoadPicture("d:\key1.ico")
            
        Case "key2"
            Screen.MouseIcon = LoadPicture("d:\key2.ico")
            
    End Select
End Sub

Answer 2

呵呵，修改一下
MouseIcon 属性提供一个自定义图标，它在 MousePointer 属性设为 99 时使用Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "key1"
            Screen.MouseIcon = LoadPicture("d:\key1.ico")
            Screen.MousePointer = 99
        Case "key2"
            Screen.MouseIcon = LoadPicture("d:\key2.ico")
            Screen.MousePointer = 99
    End Select
End Sub只有MousePointer ＝99，即为自定义类型时，MouseIcon 起作用