マウスポインタを移動させたい

質問

趣味で時々プログラムを組むレベルのものです。

プログラム開始直後に、マウスポインタを画面の左上、または右下に移動させたいと考えていますが、どのようにすればいいのでしょうか？

VisualBasicのバージョンは、6.0、Windows2000を使っています。

よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

WinAPIの SetCursorPosを使う事になりそうです

画面というのがデスクトップなら ScreenのWidth・Heightで幅と高さが取得出来ます

画面がVB6で作成したアプリならフォームのLeftやTopプロパティをスクリーン座標にしてSetCurSorPosに与えましょう

変換の仕方はTWIPからPixelへの変換です
x = Me.Left / Screen.TwipsPerPixelX
y = Me.Top / Screen.TwipsPerPixelY
といった具合です

SetCursorPosのAPI宣言は
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
といった具合にします
# 標準モジュールに宣言するなら『Private』を『Public』にしてください