VB.NET AForge 画像のピクセル化

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は、生成の際、ピクセルサイズを指定します。