画像を拡大・縮小する(補間方法指定)

画像ファイルを指定した補間方法で拡大・縮小し新しいBitmapオブジェクトを作成します。

ここでの例は、補間方法にバイキュービックを指定し変換後のサイズを 1500×1125にしています。

補間方法は、InterpolationModeプロパティへ指定します。

実装例

Dim bmpSrc = New Bitmap("C:\sample.jpg")
Dim bmpDest As New Bitmap(1500, 1125)
Dim g As Graphics = Graphics.FromImage(bmpDest)

' 補間方法として高品質双三次補間を指定する
g.InterpolationMode = _
    System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
' 画像を縮小表示
g.DrawImage(bmpSrc, 0, 0, 1500, 1125)

' オブジェクトの破棄
g.Dispose()
bmpDest.Dispose()
bmpSrc.Dispose()