Question

怎么用VB程序编写隐藏鼠标程序

Answer 1

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor 0 '隐藏鼠标
End Sub

Private Sub Command2_Click()
ShowCursor 1 '显示鼠标
End Sub

Answer 2

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()

Timer1.Enabled = True

ShowCursor 0

End Sub

Private Sub Timer1_Timer()

ShowCursor 1

Timer1.Enabled = False

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub