| 投稿日 | ： 2006/09/29(Fri) 16:11 |
| 投稿者 | ： シーモア |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: マウスカーソルをセカンダリ上でも消したい（ShowCursorではプライマリだけ消える） |
> > セカンダリモニタ上にいくと表示されてしまいます
> > セカンダリモニタ上でも消せないでしょうか？
> だったら、移動しないようにすればいいのでは。
>
> マウスのイベントを無効にし、マウスカーソルを非表示に設定
> http://hanatyan.sakura.ne.jp/vbhlp/MouseLook.htm
解決ではないですが、以下の方法で目たないようにしようと思います
花ちゃんさんありがとうございました
①プライマリからセカンダリにいってマウスダウンを発生させる
②直後にプライマリに戻る
③0.4MM秒待機
④プライマリからセカンダリにいってマウスアップを発生させる
⑤プライマリに戻る
Call SetCursorPos(lngX, lngY) 'セカンダリー相対位置マウスカーソルを移動
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'マウスダウン
Call SetCursorPos(getP.x, getP.y) 'マウスカーソルを元の位置（プライマリ）へ
DoEvents
Dim lngTickCount
lngTickCount = GetTickCount + 400
Do '0.4m秒待機
DoEvents
If lngTickCount < GetTickCount Then
Exit Do
End If
Loop
Call SetCursorPos(lngX, lngY) 'セカンダリー相対位置マウスカーソルを移動
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) 'マウスアップ
Call SetCursorPos(getP.x, getP.y) 'マウスカーソルを元の位置（プライマリ）へ