处理过程时的鼠标显示

为了让你的程序更专业，我们经常需要在程序处理过程中，鼠标形状显示为“沙漏”。我们一般的方法是在子程序的开头和结尾编程改变鼠标形状，非常繁琐，容易忘记。我们也可以通过以下方式达到这个目的:
1。新建一个类，命名为:c沙漏；
2。将以下代码添加到该类中:[/Br/]private subclass _ initialize()[/Br/]screen . mouse porter = VB hourglass[/Br/]end sub[/Br/]private subclass _ termin ate()[/Br/]screen . mouse porter = VB default[/Br/]end sub[/Br/]3 .在子例程的开头添加以下代码:
将我的沙漏调暗为c沙漏
设置我的沙漏=新的c沙漏。