如何使鼠标显示为沙漏?

jljlwsy 2003-05-20 06:16:57
我的VB程序在查询数据库时,鼠标显示为指针,我想让它显示为沙漏状这样可以知道它在工作。请问如何实现?
...全文
69 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
DimVar 2003-05-20
在执行一个较长时间的任务前改。
回复
lihonggen0 2003-05-20
我想让它显示为沙漏状
Screen.MousePointer = vbHourglass

默认:
Screen.MousePointer = vbDefault

-----------------------------------------
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
End Sub

Private Sub Command2_Click()
Screen.MousePointer = vbDefault
End Sub

回复
lxcc 2003-05-20
screen.mousepointer=vbhourclass
回复
饮水需思源 2003-05-20
'鼠标变成忙状态:
screen.mousepointer=vbhourglass
或screen.mousepointer=11
'鼠标变成正常状态:
screen.mousepointer=vbdefault
或screen.mousepointer=0
回复
liu584 2003-05-20
要想有沙漏倒不难,
mouseicon,mousepointer,改一下就可以了,
难点是什么时候改变?
关注
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-20 06:16
社区公告
暂无公告