AForgeを使用して、画像にぼかしを加える方法を記載します。
AForge.Imaging.Filters をインポートします。
Blurクラスを使用して画像にぼかしを加える
1 2 3 4 5 6 7 8 9 |
Dim FilePath As String = "C:\work\imgsample01.jpg" Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath) 'ぼかしを加える Dim blurFilter As Blur = New Blur() Dim blurImage As Bitmap = blurFilter.Apply(img) 'ピクチャーボックスに表示 PictureBox1.Image = blurImage |
※ぼかしを加える際、Jitterクラス(ジッター)で揺らぎを加えるなどした後で行うと効果的です。