使鼠标指针变成忙碌状态的VB代码

发布网友 发布时间：2022-04-26 12:48

我来回答

共3个回答

热心网友 时间：2022-06-28 09:24

鼠标变形状容易啊，难就难在你还要把相关控件变灰变成不能使用，这样子才能避免点击

热心网友 时间：2022-06-28 09:25

在VB家族语言中，VB、VBScript、VBA、HTA等等都是可以实现你说的这种功能的，因为它们都是本身有界面（或者宿主软件有界面）的，唯独VBS属于无界面运行的脚本语言，而鼠标指针的形状是取决于它所在的窗口或控件的（比如鼠标在某个软件的窗口里是沙漏，移到桌面上又变为默认形状了），VBS没有窗口就无法直接改变鼠标指针的形状，只能通过API函数（SetCursor或SetSystemCursor）来强行改变了。而要在VBS调用API函数本身又是一大学问，这里很难说清楚了，你自己百度一下吧。

热心网友 时间：2022-06-28 09:25

窗体添加一个timer控件，Interval设置1000 也就是1秒触发一次。
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i > 30 Then
MousePointer = 1
Else
MousePointer = 11
End If
End Sub