Visual Basic Tips

マウスカーソルの消去＆復元(API)

マウスカーソルの消去は、スクリーンセイバーなんかで良く使いますね。注意して欲しいのは消えるのは見かけ上だけで、フォームをクリックしたりするとちゃんとイベントが発生します。あくまで”見かけ”の消去です。
サンプルではForm_Loadで消去し、タイマーイベント５秒後に復元させています。

Private Sub Form_Load()
　　Timer1.Interval = 5000

　　'マウスカーソルを消す
　　Call ShowCursor(False)
End Sub

Private Sub Timer1_Timer()
　　'マウスカーソルの復元
　　Call ShowCursor(True)

　　MsgBox "復活！！"
End Sub

'-------------------------------------------------------
'
'-------------------------------------------------------
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long


DownLoad vbtips093.lzh 2KB (VB6.0)