急急!!!!!

[Depress]

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

[kmzs]

只要修改属性就行了

[SoHo_Andy]

试试
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

[SoHo_Andy]

呵呵，修改一下
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 起作用