画像をぼかす
（16bitカラー以上必須、32bitカラー推奨）
VBの命令を応用するだけで簡単に画像ぼかすことが出来ます。
▲画像の変化（Ｗｉｎｄｏｗｓ付属の森.bmpを使用しました）
|
手 順 |
１．ピクチャーボックスに変換する画像を読みこむ
↓
２．変換する位置のまわりの色を読みこみ、その色をＲ（赤）、Ｇ（緑）、Ｂ（青）に分解（図解１）
↓
３、それぞれの色を足して９で割る
↓
４．ＲＧＢ関数で色を求める（赤、緑、青の合成）
↓
５．Ｐｓｅｔ文などでピクチャーボックスなどに描画
↓
６．画像の大きさだけ２から５を繰り返す
↓
７．できあがり
|
図解１：Ａ点の色を求める |
| (255,0,0) | (255,100,0) | (255,255,0) |
| (255,0,100) | A(100,100,100) | (255,255,100) |
| (255,0,255) | (255,100,255) | (255,255,255) |
A点の色を求めるには、A点のそれぞれの色の要素に、まわりの色の要素を足して、要素の分（ここでは９）で割れば良い。
赤の要素：(255+255+255+255+100+255+255+255+255)/9
緑の要素：(0+100+255+0+100+255+0+100+255)/9
青の要素：(0+0+0+100+100+100+255+255+255)/9
これをＲＧＢ関数で色のＬｏｎｇ値に合成し表示すれば完了。
注：ピクチャーボックスのAutoReviewプロパティがTrueになっている必要があります
また描画時にウィンドウを最小化しておくと描画スピードが速くなります
|
サ ン プ ル プ ロ グ ラ ム |
ＶｉｓｕａｌＢａｓｉｃ４以上で動作するサンプルプログラムです。かなり綺麗に変換できます。
毎度の事ながら色取得や設定にＡＰＩを使用せず、ＶＢだけで行っているので動作が遅いです。分かりやすさ優先という事で。