ぷろぐらむノート

AForgeを使用して、画像のサイズを変更（リサイズ）する方法を記載します。

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

ResizeBilinear クラスを使用して画像サイズを変更する

双線形補間アルゴリズムにて画像のサイズを変更します。

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'画像のサイズを変更する
Dim rsizeFilter As ResizeBilinear= New ResizeBilinear(300, 400)
Dim rsizeImage As Bitmap = rsizeFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = rsizeImage

画像のサイズ変更には他にも

ResizeBicubicクラス：バイキュービック補間アルゴリズムを使用して画像のサイズを変更する

ResizeNearestNeighborクラス：最近傍アルゴリズムを使用して画像のサイズを変更する

があります。

 

AForgeを使用して、画像をピクセル化する方法を記載します。

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

Pixellate クラスを使用してピクセル化する

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'ピクセル化
Dim pixellateFilter As Pixellate = New Pixellate(8)
Dim pixellateImage As Bitmap = pixellateFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = pixellateImage

Pixellateは、生成の際、ピクセルサイズを指定します。