1 2 3 4 5 6 7 | 'スクリーン座標x,yで示されるオブジェクトウインドウ内の位置をマウス右ボタンクリックします Dim instance As ClientHwnd Dim x As Integer Dim y As Integer 'Overloads instance.mRClick(x, y) |
1 2 3 4 5 6 | 'スクリーン座標Point構造体で示されるオブジェクトウインドウ内の位置をマウス右ボタンクリックします Dim instance As ClientHwnd Dim p As System.Drawing.Point 'Overloads instance.mRClick(p) |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 'ClientHwndクラス mRClickメソッド Imports System.Windows.Forms Public Class AddIn Private chw As ClientHwnd Public Sub New () chw = New ClientHwnd() chw.mRClick(100, 50) End Sub End Class |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 'ClientHwndクラス mRClickメソッド Imports System.Windows.Forms Public Class AddIn Private chw As ClientHwnd Public Sub New () chw = New ClientHwnd() chw.mRClick( New System.Drawing.Point(100,50)) End Sub End Class |