Back to Top

Daily Archives: 2017年2月10日

VB.NET AForge 画像のHSL彩度調整

AForgeを使用して、画像のHSL色空間で彩度値を調整するフィルタの使用方法を記載します。

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

SaturationCorrectionクラスを使用して彩度調整する

彩度調整は、HSL色空間で、ピクセルの彩度値を調整します。

彩度値は指定された割合で増加・減少します。

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'HSL色空間での彩度調整
Dim scFilter As SaturationCorrection = New SaturationCorrection(-0.3)
Dim scImage As Bitmap = scFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = scImage

  

 

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軸反転の有無を指定します。