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

タイトル はじめまして
投稿日: 2006/05/28(Sun) 00:06
投稿者
参照先http://ykbys.fc2web.com/
[OSのVer]:WindowsXP  [VBのVer]:VS.NET 2005 Standard Academic  
はじめまして、突然すみませんが、ひとつ聞きたいことがあります。
今、図面関連のソフトを作っているのですが、スクロールがうまくいきません。
下や、右には行くのですが、上や、左には動きません。どうしたらいいのでしょうか?
一応コード書いておきます。突然ですがご指導の方お願いできたらと思います。

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal _
    e As System.Windows.Forms.MouseEventArgs) _
    Handles PictureBox1.MouseMove
        Dim setting As Integer = Panel2.Width - e.X
        Dim mepos As String = Me.Bottom
        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        Dim asbpen As Pen
        asbpen = New Pen(Color.Black, 1.5)
        asbpen.DashStyle = Drawing2D.DashStyle.Dash

        If e.Button = Windows.Forms.MouseButtons.Left And RadioButton1.Checked = True Then
            PictureBox1.CreateGraphics.DrawLine(asbpen, c.X, c.Y, e.X, e.Y)
            PictureBox1.CreateGraphics.Dispose()
            PictureBox1.Refresh()
            If e.X >= Panel2.Width Then
                PictureBox1.Refresh()
                Panel2.AutoScrollPosition = New Point(-Panel2.AutoScrollPosition.X + 50, _
                -Panel2.AutoScrollPosition.Y)
            End If
            If e.Y >= Panel2.Height Then
                PictureBox1.Refresh()
                Panel2.AutoScrollPosition = New Point(-Panel2.AutoScrollPosition.X, _
                -Panel2.AutoScrollPosition.Y + 50)
            End If
            If e.X <= Panel2.Location.X Then
                PictureBox1.Refresh()
                Panel2.AutoScrollPosition = New Point(Panel2.AutoScrollPosition.X _
                - 50, -Panel2.AutoScrollPosition.Y)
            End If
            If e.Y <= Panel2.Location.Y Then
                PictureBox1.Refresh()
                Panel2.AutoScrollPosition = New Point(Panel2.AutoScrollPosition.X, _
                -Panel2.AutoScrollPosition.Y - 50)
            End If
            If _
            Not e.X >= Panel2.Width Or Not e.Y >= Panel2.Height Or Not_
e.X<=Panel2.Location.X _
            Or Not e.Y <= Panel2.Location.Y Then
                Exit Sub
            End If
        End If
            End Sub

一部関係のないものがありますが、ご了承ください。

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

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