| タイトル | ： マウスが上下左右どちらに動いているかだけ知りたい |
| 記事No | ： 11031 |
| 投稿日 | ： 2007/12/29(Sat) 13:02 |
| 投稿者 | ： うさぎＹ |
ピクチャーボックス上で表示画像をスクロールバーを使って
上下左右に動かすことはできたのですが
それをいかしつつ、マウスでも上下左右に「現在位置」から
移動できるようにしようと思いつまづいています。
使い方としては、現在表示されている画像の表示位置微調整のために
作ろうと思い マウスの上下左右の動きに合わせて スクロールバーの値を
少しだけ増減させようと思っています
自分で考えがまとまったのはMouseMoveを使うようにして
Private Sub ViewPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then '左クリック時
If マウスが右へ動いたなら(xの値が増えているなら) Then
HScroll1.Value = HScroll1.Value + 10 '右へ１０動かす
Else
HScroll1.Value = HScroll1.Value - 10 '左へ１０動かす
End If
If マウスが下へ動いたなら(yの値が増えているなら) Then
VScroll1.Value = VScroll1.Value + 10 '上へ１０動かす
Else
VScroll1.Value = VScroll1.Value - 10 '下へ１０動かす
End If
以下省略
と言うところまでで、ifの日本語で書いている部分が
どう書けばいいか分かりません。
ｘやｙの値はマウスが動いている間中、随時変化しているので、
それが増えていっているのか減っていっているのかを調べればいい
と思うのですが、ドラッグアンドドロップでの作業なら
ドラッグ時の座標とドロップ時の座標で変化がつかめるのですが
今回は左クリックしている間中、画像を随時動かしたいので
何か良い方法はないかと思っています。
参考資料や考え方などありましたら教えていただけたらと思っています
よろしくお願いします
|