tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 原点に戻る理由がわかりません
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。