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

タイトル ： Re: たびたびすいません
投稿日： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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