タイトル | : Re: たびたびすいません |
記事No | : 3789 |
投稿日 | : 2006/06/03(Sat) 11:54 |
投稿者 | : YAS |
> 本当に大変申し訳ありませんが、初期にお書きした環境でのスクロール方法を教えていただけません > か?
こんな感じですか? ポイントはe.Xを使うのではなく,マウスのPanel2のクライアント座標を取得して使うことです。
Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then Dim p As Point = Panel2.PointToClient(Control.MousePosition) Dim dx, dy As Integer If p.X > Panel2.Width Then dx = 50 If p.Y > Panel2.Height Then dy = 50 If p.X < 0 Then dx = -50 If p.Y < 0 Then dy = -50 Me.Panel2.AutoScrollPosition = New Point(-Panel2.AutoScrollPosition.X + dx, _ -Panel2.AutoScrollPosition.Y + dy) Me.PictureBox1.Refresh() End If End Sub
|