マウスカーソルの表示/非表示を切り替える

これは意外に簡単で、ShowCursorというAPIに0を渡して呼び出せば、
消えて、1を渡せば表示されます。
以下のコードはマウスカーソルの表示/非表示を一定時間で切り替えます。

'APIの宣言
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'これがTrueならやめる。
Dim a As Boolean
Dim mousestate As Long

Private Sub Form_Load()
Dim s As Boolean, i As Long
Form1.Show
Do Until a = True
    If s = True Then
        mousestate = ShowCursor(1)
        s = False
    Else
        mousestate = ShowCursor(0)
        s = True
    End If
    For i = 0 To 50000
        DoEvents
        If a = True Then Exit For
    Next i
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
a = True
If mousestate = -1 Then
    'もしマウスカーソルが消えてる状態なら表示する
    ShowCursor 1
End If
End Sub

BACK