[ツリー表示へ] [ワード検索] [Home]
タイトル ： マウスが上下左右どちらに動いているかだけ知りたい 投稿日 ： 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の日本語で書いている部分が どう書けばいいか分かりません。 ｘやｙの値はマウスが動いている間中、随時変化しているので、 それが増えていっているのか減っていっているのかを調べればいい と思うのですが、ドラッグアンドドロップでの作業なら ドラッグ時の座標とドロップ時の座標で変化がつかめるのですが 今回は左クリックしている間中、画像を随時動かしたいので 何か良い方法はないかと思っています。 参考資料や考え方などありましたら教えていただけたらと思っています よろしくお願いします |
をクリックするとツリー全体を一括表示します） - マウスが上下左右どちらに動いているかだけ知りたい - うさぎＹ 07/12/29-13:02No.11031