VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 处理过程时的鼠标显示
发表评论(0)作者:, 平台:, 阅读:11017, 日期:2000-03-12
处理过程时的鼠标显示

为让你的程序更加专业一点,我们往往需要在程序处理过程时的鼠标形状显示

为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状,

这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标:

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