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

タイトル スクロールバーが消えない
投稿日: 2008/05/20(Tue) 19:43
投稿者へむ
はじめまして。
いつも参考にさせていただいてます。

早速質問なのですが、パネル内のピクチャーボックスに画像を貼り付けて、
NumericUpDownに入力された数値で画像を拡大・縮小するズーム機能を付けたいと
思うのですが、縮小したときにパネルのスクロールバーが、
AutoScrollプロパティで自動で消えるのかと
思ったのですが、消えてくれません。

ご存知の方ご教授お願いいたします。
よろしくお願いします。

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

        'PictureBox1のGraphicsオブジェクトの作成
        Dim img As Bitmap = New Bitmap("C:\XXXXX.jpg")
        Dim g As Graphics = PictureBox1.CreateGraphics()

        Dim pZoom As Double
        pZoom = (CDbl(NumericUpDown1.Value) / 100)
        Dim rect As RectangleF = _
            New RectangleF(0, 0, pZoom * img.Width, pZoom * img.Height)
        g.DrawImage(img, rect)

        'BitmapとGraphicsオブジェクトを破棄
        img.Dispose()
        g.Dispose()

     End Sub

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

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