Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET AForge 画像を反転する

AForgeを使用して、画像をミラー反転する方法を記載します。

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

Mirrorクラスを使用して画像を反転する

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'画像をX軸で反転させる
Dim mirrorFilter As Mirror = New Mirror(True, False)
Dim mirrorImage As Bitmap = mirrorFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = mirrorImage

Mirrorはパラメータで、X軸反転の有無、Y軸反転の有無を指定します。

  

 

Posted in AForge | Leave a reply

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クラス:最近接アルゴリズムを使用して画像を回転する

があります。

 

Posted in AForge | Leave a reply