Back to Top

Daily Archives: 2017年2月10日

VB.NET AForge 画像を回転する

AForgeを使用して、画像を回転する方法を記載します。

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

RotateBilinear クラスを使用して画像を回転する

双一次補間(バイリニア補間)にて画像を回転させます。

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'画像を45度回転させる
Dim rotateFilter As RotateBilinear = New RotateBilinear(45.0, True)
Dim rotateImage As Bitmap = rotateFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = rotateImage

RotateBilinearはパラメータに 回転角度、元画像のサイズをキープするか否かを指定します。

  

画像の回転には他にも

RotateBicubicクラス:バイキュービック補間を使用して画像を回転する

RotateNearestNeighborクラス:最近接アルゴリズムを使用して画像を回転する

があります。

 

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

があります。