| 投稿日 | ： 2006/09/29(Fri) 10:00 |
| 投稿者 | ： シーモア |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： マウスカーソルをセカンダリ上でも消したい（ShowCursorではプライマリだけ消える） |
マウスカーソルを消したいのですけれども、
ShowCursor
では、プライマリーモニタ上では消えるんですけど
セカンダリモニタ上にいくと表示されてしまいます
セカンダリモニタ上でも消せないでしょうか？
よろしく御願いします
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