急急!!!!!

Depress 2003-12-24 12:04:56
有一个窗体,其中有一Toolbar控件,Toolbar控件有2个按钮,如果按1按钮窗体显示一种mouseIcon图标,如果按2按钮窗体显示另一种mouseIcon图标,如何实现。
...全文
3 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
SoHo_Andy 2003-12-24
呵呵,修改一下
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 起作用
回复
SoHo_Andy 2003-12-24
试试
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
回复
kmzs 2003-12-24
只要修改属性就行了
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告