Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET AForge 画像のサイズを変更する

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クラス:最近傍アルゴリズムを使用して画像のサイズを変更する

があります。

 

Posted in AForge | Leave a reply

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

  

 

Posted in AForge | Leave a reply