VBのPictureBoxで画像をドラッグして表示範囲を移動したい

お世話になります。
VB.netのPictureBoxに画像を貼り付け表示しているのですが、
PictureBoxよりも大きい画像を表示した際にスクロールバーで表示範囲の移動はできるのですが、
これをスクロールバーではなくマウスをドラッグして表示範囲の移動をしたいのです。

どのようにすればできますか？
よろしくお願いします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2009/08/30 15:38

MouseDown、MouseMove、MouseUpを適切に処理してやればいいようですよ

'Dragしているかのフラグと ドラッグを開始した点を覚える変数を準備
dim bDrag as Boolean, ptDrag as Point

Private Sub PictureBox1_MouseDown(引数省略)
　　if bDrag = False then
　　　　bDrag = True
　　　　ptDrag = e.Location
　　end if
End Sub

Private Sub PictureBox1_MouseMove(引数省略)
　　if bDrag then
　　　　dim pt as Point = PictureBox1.Parent.PointtoClient( Cursor.Location )
　　　　PictureBox1.Location = pt - ptDrag
　　end if
End Sub

Private Sub PictureBox1_MouseUp(引数省略)
　　bDrag = False
End Sub
といった具合でどうでしょう ・・・

この回答へのお礼

上記の方法で無事解決できました！ありがとうございます！

お礼日時：2009/09/03 15:56