1个回答
展开全部
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Form_Load()
Dim rc%
rc% = ShowCursor(False) '隐藏鼠标
Sleep (5000) '停5秒
rc% = ShowCursor(True) '显示鼠标
End Sub
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Form_Load()
Dim rc%
rc% = ShowCursor(False) '隐藏鼠标
Sleep (5000) '停5秒
rc% = ShowCursor(True) '显示鼠标
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询