マウスポインタを非表示にする方法

◆概要

このページは、Visual Basic 6.0で、マウスポインタを非表示にする方法について記載しています。


アプリケーションによっては、マウスポインタを非表示にする必要があるときがあります。マウスポインタを非表示にするには、Win APIの ShowCursor を使用します。


次の例では、フォームにコマンドボタンを２つ用意し、マウスポインタを非表示にしたり、表示したりしています。


◆標準モジュール 

Option Explicit

'マウスポインタを隠したり表示したりするためのＡＰＩを
'宣言します。
Public Declare Function ShowCursor _
Lib "user32" ( _
ByVal bShow As Long _
) As Long

◆フォームモジュール 

Private Sub Form_Load()
  'コマンドボタンの設定
  Command1.Caption = "マウスポインタを隠す(&H)"
  Command2.Caption = "マウスポインタを表示(&V)"
End Sub

Private Sub Command1_Click()
    Dim Ret As Long
    Ret = ShowCursor(False) 'マウスポインタを隠します。
End Sub

Private Sub Command2_Click()
    Dim Ret As Long
    Ret = ShowCursor(True) 'マウスポインタを表示します。
End Sub
▼ページトップへ