タイトル : スクロールバーが消えない 投稿日 : 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 |