tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルたびたびすいません
記事No3788
投稿日: 2006/06/02(Fri) 23:51
投稿者
優です。
YASさん、たびたび申し訳ありません。
単にスクロールさせるだけのコードはとても参考になりました。
ただ、大変申し訳ないのですが、普通のPanelで、なおかつ、スクロールバーを表示させられる、
方法はありますか?
YASさんのサンプルコードに、Expanel1.AutoScroll = Trueとしても、スクロールバーが現れないので
すが・・・
本当に大変申し訳ありませんが、初期にお書きした環境でのスクロール方法を教えていただけません
か?
本当にたびたび申し訳ありません。
本当にすみません。

[ツリー表示へ]
タイトルRe: たびたびすいません
記事No3789
投稿日: 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

[ツリー表示へ]
タイトルありがとうございます。
記事No3795
投稿日: 2006/06/04(Sun) 20:08
投稿者
本当にありがとうございます。
おかげで、ソフトのベータ版のめどが立ちました。
自分では、1年かかったものがYASさんのおかげで、解決しました。
本当に心から感謝します。
本当に本当にありがとうございました。

[ツリー表示へ]