タイトル : 原点に戻る理由がわかりません 投稿日 : 2006/06/24(Sat) 19:15 投稿者 : 優
ドラッグでスクロールのコードを書いていたのですが、どうしても、二回目以降は、原点に戻ってし まいます。 このコードの悪いところはどこでしょうか??? Private pnt As Point Private bFlag As Boolean Private Sub pictureBox1_MouseDown() pnt = New Point(e.X, e.Y) pnt = pictureBox1.PointToScreen(pnt) bFlag = True End Sub 'pictureBox1_MouseDown Private Sub pictureBox1_MouseUp() bFlag = False End Sub 'pictureBox1_MouseUp Private Sub pictureBox1_MouseMove() If bFlag Then Dim pnt2 As New Point(e.X, e.Y) pnt2 = pictureBox1.PointToScreen(pnt2) Dim x As Integer = pnt2.X - pnt.X Dim y As Integer = pnt2.Y - pnt.Y panel1.AutoScrollPosition = New Point(x * - 1, y * - 1) End If End Sub 'pictureBox1_MouseMove |