首页 > > 程序设计 > VB >

处理过程时的鼠标显示

2008-02-23 06:53:49来源：互联网阅读 ()

为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标：
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

上一篇：获得系统中鼠标的键数
下一篇：获得、设置鼠标双击间隔时间

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有