'画像を拡大、縮小して表示する（スケーリング） 'Bitmapオブジェクトの作成 Dim img As Bitmap = New Bitmap("C:\test.bmp") 'PictureBox1のGraphicsオブジェクトの作成 Dim g As Graphics = PictureBox1.CreateGraphics()
'元の画像の大きさを1.5倍にして表示する Dim rect As RectangleF = _ New RectangleF(0, 0, 1.5F * img.Width, 1.5F * img.Height) g.DrawImage(img, rect) 'または、次のようにも書ける g.DrawImage(img, 0, 100, 1.5F * img.Width, 1.5F * img.Height)
Using dst As New Bitmap(200, 200) '…(1) Using g As Graphics = Graphics.FromImage(dst) '…(2) Using src As New Bitmap("C:\300x240.bmp") '…(3) g.Clear(Color.White) '…(4) g.DrawImage(src, 0, 0, 160, 200) '…(5) End Using End Using dest.Save("C:\200x200.bmp") '…(6) End Using
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
画像ファイルの縦・横サイズを200ピクセルに拡大・縮小し、
保存するプログラムを作ろうとしています。
縦・横サイズが同じであれば問題ないのですが、
例えば縦：300ピクセル、横：240ピクセルなどの場合、
比率を調整した後の画像サイズは
縦：200ピクセル、横：160ピクセルとなります。
ここで横のサイズを200ピクセルになるように引き伸ばすのではなく、
40ピクセル分を白背景にしたい…不足分をなんらかの形で
補完できないものかと考えております。
40ピクセル分を動的に作る(作れるのか？)…
白い画像で200*200のものを用意し、それに加工した画像を重ねる…
…などなど、頭ではモヤモヤと浮かぶのですが、
実現方法に苦慮しております。
よろしくお願い致します。
ちなみにPG自体はDOBONさんの拡大・縮小方法のサンプルをもとにしています。
これをベースになんとかならないものかな、などと考えております。
'画像を拡大、縮小して表示する（スケーリング）
'Bitmapオブジェクトの作成
Dim img As Bitmap = New Bitmap("C:\test.bmp")
'PictureBox1のGraphicsオブジェクトの作成
Dim g As Graphics = PictureBox1.CreateGraphics()
'元の画像の大きさを1.5倍にして表示する
Dim rect As RectangleF = _
New RectangleF(0, 0, 1.5F * img.Width, 1.5F * img.Height)
g.DrawImage(img, rect)
'または、次のようにも書ける
g.DrawImage(img, 0, 100, 1.5F * img.Width, 1.5F * img.Height)
'BitmapとGraphicsオブジェクトを破棄
img.Dispose()
g.Dispose()