处理过程时的鼠标显示
原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:11 来源：未知
| 为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标：
逆@风@者
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 |
 本文章所属分类： 首页
→ VB
|
文章搜索
热门文章
推荐文章
最新文章
|
您的位置：逆风者
→ VB
→ 正文