8.画面からマウスポインタを消去



< 使用用途 >
画面からマウスポインタを消去する


< 説明 >
API関数のShowCursorを使用します。

ShowCursor=>マウスポインタを消去
    @戻り値@  
       ディスプレイカウント
        表示されるたびに+1される
        非表示されるたびに−1される


< SAMPLE >

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

'マウスポインタを非表示にする
Private Sub Command1_Click()
 Dim Ret As Long
   Ret=ShowCursor(0)
End Sub

’マウスポインタを表示する
Private Sub Command2_Click()
 Dim Ret As Long
   Ret=ShowCursor(1)
End Sub





API 技術関連のページへ戻る

ホーム PV ランキング