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
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ