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