マウスカーソルの位置をホームポジションに移動する方法

解決

ねずみ歳 2009-07-31 20:02:55 No: 142298

VB６です。
屋外で使用するノートPC用のソフトを作り問題なく動いているのですが屋外のため画面が見づらくて改善をしようと考えています。現場を見ながらの操作となるためPCに目を移した時に毎回カーソルを見失い,捜すのに苦労します。そこで例えばCtrlキーを押したらカーソルが必ず１０，１０などの分かっているポジションに移動するようにできれば急いでいるなかで毎回パニクることから回避できると思いました。例えば１０，１０に移動するコマンドなどありましたら教えてください。

ひよこ 2009-07-31 21:07:53 No: 142299

VB6でしたらSetCursorPosを使うしかないのかな？

「vb6 マウスカーソル SetCursorPos」などで検索したらサンプル
もいくつかヒットしましのでそちらを参考にしてみてはいかがでしょう？

ねずみ歳 2009-08-01 01:01:40 No: 142300

できました。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

特攻隊長まるるう 2009-08-01 03:24:57 No: 142301

> SetCursorPosというキーワードが思いつかずにいましたが
ちょｗそれキーワード違う。答えという。
そこに辿り着く為に考えるのがキーワードでは？

『カーソル位置設定 VB6』で辿り着けたよ。
思いつかないものですか？
まぁ、いまどき VB.NET の情報が多いので、数サイト確認しないと
辿り着かない事くらいは覚悟して欲しいですが。