如何实现在等待状态下，鼠标指针变成一个漏斗呀？

Question

如何实现在等待状态下，鼠标指针变成一个漏斗呀？
比如进行数据汇总时，有可能要几十秒钟时间，在这段时间，我想让鼠标指针变成漏斗状，给操作者一种等待的状态。可是如何做呀？
没有查到，只好发贴问了。
谢谢。

Answer 1

screen.mousepointer=vbhourglass    '鼠标忙状态
screen.mousepointer=vbdefault      '鼠标默认状态

Answer 2

楼上正解，补充一点，一般光光改变漏斗形状用户还是可以点击按钮和其他操作，一般在漏斗前后把当前窗体给禁用掉：如下：
           
Me.MousePointer = vbHourglass    
Me.Enabled = False
'下面开始操作
...
...
Me.Enabled = True
Me.MousePointer = vbDefault这样就比较保险，不会因为用户在漏斗鼠标情况下又触发了其他操作而导致一些别的后果。

Answer 3

楼上的，这个办法好像还是不能防止用户的盲目点击,因为在系统忙得时候用户的鼠标操作会暂存到缓冲区，当系统恢复空闲状态时会将刚才缓冲区中的点击操作取出重复一次，所以将me.enabled=false是没有用的。

Answer 4

楼上的，这个办法好像还是不能防止用户的盲目点击,因为在系统忙得时候用户的鼠标操作会暂存到缓冲区，当系统恢复空闲状态时会将刚才缓冲区中的点击操作取出重复一次，所以将me.enabled=false是没有用的。
--------------
那如何做是好呀？

Answer 5

用一个timer控件来控制对象Enabled的属性，也就是说在程序由忙变为闲后再等待一段时间才将对象的Enable = True。

Answer 6

用一个timer控件来控制对象Enabled的属性，也就是说在程序由忙变为闲后再等待一段时间才将对象的Enable = True。
-----
可是timer控件的时间如何定呀？再说也是控制对象的enabled属性呀？
我没看出区别来，请再指教。

Answer 7

首先置对象Enable = false ，鼠标设置沙漏状 ==〉
数据汇总，程序忙 ==〉
汇总完毕，程序闲==〉
Timer.enable = true ==> 
timer控件等待一段时间，如200毫秒 ==> 
在timer控件代码中将对象Enable=true ，鼠标恢复默认指针

Answer 8

Me.MousePointer = 11
'------加上这句
DoEvents '这样可以响应其它事件