掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスカーソルの位置をホームポジションに移動する方法 (ID:142300)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
できました。SetCursorPosというキーワードが思いつかずにいましたがこれで捜したら一発でした。下記でやってみたら画面中央に移動するのが一番見やすいようでした。 ありがとうございました。 Private Declare Function SetCursorPos Lib "user32" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub MouseCenter() Dim ｙ, x y = (Me.Top + Me.Height / 2) \ Screen.TwipsPerPixelX x = (Me.Left + Me.Width / 2) \ Screen.TwipsPerPixelX Call SetCursorPos(x, y) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 17 Then MouseCenter End Sub Private Sub Form_Load() KeyPreview = True End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.