ScreenHwndクラス mPositionメソッド
現在のマウスポインタ位置をPoint構造体で表されるスクリーン座標値で返します。
使用法
Dim instance As ScreenHwnd
Dim returnValue As System.Drawing.Point
returnValue = instance.mPosition()
使用例
'ScreenHwndクラス mPositionメソッド
Imports System.Windows.Forms
Public Class AddIn
Public Sub AddIn_Start()
Dim stdf As StdFunc = New StdFunc()
Dim shw As ScreenHwnd = New ScreenHwnd()
MessageBox.Show("マウスを任意位置へ移動して下さい。2秒後にその位置を表示します。")
stdf.WaitSec(2)
Dim p As System.Drawing.Point = shw.mPosition()
MessageBox.Show("マウスポインタ位置: " & p.X.ToString & "," & p.Y.ToString)
End Sub
End Class