1 2 3 4 5 | '現在位置でマウス右ボタンダウンします Dim instance As ScreenHwnd 'Overloads instance.mRDown() |
1 2 3 4 5 6 | 'マウスポインタ移動後にマウス右ボタンダウンします Dim instance As ScreenHwnd Dim pt As System.Drawing.Point 'Overloads instance.mRDown(pt) |
1 2 3 4 5 6 7 | 'マウスポインタ移動後にマウス右ボタンダウンします Dim instance As ScreenHwnd Dim x As Integer Dim y As Integer 'Overloads instance.mRDown(x, y) |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 'ScreenHwndクラス mRDownメソッド Imports System.Windows.Forms Public Class AddIn Private shw As ScreenHwnd Public Sub New () shw = New ScreenHwnd() MessageBox.Show( "実行ボタンでX:200 Y:300の位置をマウス右ボタンダウンします。" ) End Sub Public Sub AddIn_Start() shw.mRDown(200, 300) End Sub End Class |