タイトル : Re: 原点に戻る理由がわかりません 投稿日 : 2006/06/25(Sun) 22:12 投稿者 : YAS
> Dim x As Integer = pnt2.X - pnt.X > Dim y As Integer = pnt2.Y - pnt.Y > panel1.AutoScrollPosition = New Point(x * - 1, y * - 1) このコードではスクロールする量がマウスのドラッグした距離になります。 ですからドラッグし直すとスクロールも最初からやり直しになります。 現在のスクロールの値を取得してその値に加算して,設定する必要があります。 |