画像の抽出
今、VB2008を用いて、原画像と原画像に落書きをした画像の２枚を用いて、
落書きのみを抽出するプログラムを作っているのですが、
RGBの演算がどうも上手く出来ません。 コードは
Dim r1#, g1#, b1#, r2#, g2#, b2#, r3#, g3#, b3#
Dim i%, j%, nx%, ny%
Dim col1, col2 As Color
'略
For j = 0 To ny - 1
For i = 0 To nx - 1
col1 = bmp1.GetPixel(i, j)'落書きした画像
r1 = col1.R
g2 = col1.G
b3 = col1.B
col2 = bmp2.GetPixel(i, j)'落書き前の原画像
r2 = col2.R
g2 = col2.G
b2 = col2.B
r3 = r1 - r2
g3 = g1 - g2
b3 = b1 - b2
bmp3.SetPixel(i, j, Color.FromArgb(Int(r3), Int(g3), Int(b3)))'落書きのみ抽出された画像の書き込み
Next
Next
Form1.Picturebox1.Image = bmp3
としてみたのですが、gやbの値が - になってしまい、エラーが出て
しまいます。If(g3<255) then g3 =255
などと記載してみたのですが上手くいきませんでした。
どこを修正、加筆すればうまく抽出が出来る様になるのでしょうか。
補足
エラーは 画像データ習得に失敗２（vp6DS） と表示されます Q＆Aはある程度は目を通しました見落としがあるかもしれません