タイトル : Re^14: SendInput関数が Vistaで動作しないのですが? 投稿日 : 2009/09/17(Thu) 22:04 投稿者 : 花ちゃん
タイトルバーは、ダブルクリックできているのですよね。 Command2_Click イベント内の下記の部分をダブルクリックに書き換えて試して 見てもメッセージバックスは表示しないでしょうか? ' Dim MoEvents(1) As Integer ' Dim Xpos(1) As Long '0 だから設定は必要ないが宣言は必要 ' Dim Ypos(1) As Long '0 だから設定は必要ないが宣言は必要 ' MoEvents(0) = MOUSEEVENTF_LEFTDOWN 'マウスの左ボタンを押す ' MoEvents(1) = MOUSEEVENTF_LEFTUP 'マウスの左ボタンを離す ' Call sMouseEventSet(2, MoEvents, Xpos, Ypos) 'マウスイベントの実行 Dim MoEvents(3) As Integer Dim Xpos(3) As Long '0 だから設定は必要ないが宣言は必要 Dim Ypos(3) As Long '0 だから設定は必要ないが宣言は必要 MoEvents(0) = MOUSEEVENTF_LEFTDOWN 'マウスの左ボタンを押す MoEvents(1) = MOUSEEVENTF_LEFTUP 'マウスの左ボタンを離す MoEvents(2) = MOUSEEVENTF_LEFTDOWN 'マウスの左ボタンを押す MoEvents(3) = MOUSEEVENTF_LEFTUP 'マウスの左ボタンを離す Call sMouseEventSet(4, MoEvents, Xpos, Ypos) 'マウスイベントの実行 |