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