ここから本文です

この知恵ノートを「知恵コレクション」に追加しました。

追加した知恵ノートはMy知恵袋の「知恵コレクション」ページで確認できます。

知恵コレクション」に登録済みです。

再登録しました。

追加に失敗しました。

ノートに戻り、もう一度やり直してください。

すでに1,000件のノートが登録されています。

新しく追加したい場合は、My知恵袋の「知恵コレクション」ページで登録されているノートを削除してください。

追加できませんでした。

ノートは削除されました。

VB.netでマウスクリックなどの操作を行う

ライターさん(最終更新日時:2012/5/10)投稿日:

  • ナイス!:

    19

  • 閲覧数:5195

印刷用のページを表示する

Win32APIを使用

''' <summary>
''' マウスの移動やマウスボタンのクリックを合成します。
''' </summary>
''' <param name="dwFlags">移動とクリックのオプション</param>
''' <param name="dx">水平位置または移動量</param>
''' <param name="dy">垂直位置または移動量</param>
''' <param name="cButtons">ホイールの移動</param>
''' <param name="dwExtraInfo">アプリケーション定義の情報</param>
''' <remarks></remarks>
<DllImport("USER32.DLL")> _
Private Shared Sub mouse_event(ByVal dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
End Sub

Private Const MOUSEEVENTF_ABSOLUTE = &H8000 'dx と dy の各パラメータは、正規化された絶対座標を意味します。
Private Const MOUSEEVENTF_MOVE = &H1 'マウスが移動したことを示します。
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '左ボタンが押されたことを示します。
Private Const MOUSEEVENTF_LEFTUP = &H4 '左ボタンが離されたことを示します。
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 '右ボタンが押されたことを示します。
Private Const MOUSEEVENTF_RIGHTUP = &H10 '右ボタンが離されたことを示します。
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 '中央ボタンが離されたことを示します。
Private Const MOUSEEVENTF_MIDDLEUP = &H40 '中央ボタンが離されたことを示します。

Private Const MOUSEEVENTF_WHEEL = &H800 'Windows NT/2000:マウスにホイールが実装されている場合、そのホイールが回転したことを示します。移動量は、dwData パラメータで指定します。
Private Const MOUSEEVENTF_XDOWN = &H80 'Windows 2000:X ボタンが押されたことを示します。
Private Const MOUSEEVENTF_XUP = &H100 'Windows 2000:X ボタンが離されたことを示します。

Private Const WHEEL_DELTA = 120 ' ホイールの移動量




''以下サンプル
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'マウス移動 Cursor.Positionつかえば同じ
mouse_event(MOUSEEVENTF_MOVE, 50, 50, 0, 0)

'左クリック処理
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

'ホイール移動
mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA * 3, 0)

End Sub

このノートに関するQ&A

このノートに関するQ&Aは、まだありません。

このノートについて質問する

このノートについてライターの方に質問できます。

※ライターの方から必ず回答をいただけるとは限りません

※別ウィンドウで開きます

この知恵ノートのライター

グレード

グレード知恵ノートのグレード:2-2

komozo_sharpさん男性

ピックアップ

お尻や足の贅肉にさよなら、「...
本にできない「正しい」下半身ダイエットなぜ「本にできない...
知っておきたい無線LANルーター...
知っておきたい無線LANルーターの知識と選び方iPod touchやPS...
Android向けアプリ Yahoo!ブラ...
基本的な使い方(メニュー・操作)便利な使い方オススメの使...
本文はここまでです このページの先頭へ