打印本文 打印本文  关闭窗口 关闭窗口  
处理过程时的鼠标显示
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:48:09  文章录入：杜斌  责任编辑：杜斌
为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标： 
1、创建一个新类，命名为：CHourGlass； 
2、在此类中加入以下代码： 
Private Sub Class_Initialize() 
Screen.MousePointer = vbHourglass 
End Sub 
Private Sub Class_Terminate() 
Screen.MousePointer = vbDefault 
End Sub 
3、在子程序的开始加入下面代码： 
Dim MyHourGlass As CHourGlass 
Set MyHourGlass = New CHourGlass
打印本文 打印本文  关闭窗口 关闭窗口