VB.NET AForge 画像のセピア化

AForgeを使用して、画像をセピア調（古い茶色の写真）にする方法を記載します。

AForge.Imaging.Filters をインポートします。

Sepia クラスを使用してセピア調にする

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)

'セピア調に変換
Dim sepiaFilter As Sepia = New Sepia()
Dim sepiaImage As Bitmap = sepiaFilter.Apply(img)

'ピクチャーボックスに表示
PictureBox1.Image = sepiaImage