|
分類:[VB.NET/VB2005 以降]
VB6.0のコードをVB2008に変換させる作業を行っているのですが、Pointの変換が上手くできません。
プログラムは影のある画像、影の無い画像を用いて影の深さの画像を抽出するプログラムです。
VB6.0のコードでは
dim c(645,485),rc(645,485),gc(645,485),bc(645,485) As Long
c(i,j) = Form2.Picturebox1.Point(i,j)
rc(i,j) = (c(i,j) And &HFF)
gc(i,j) = (c(i,j) And 65280) \ 256&
bc(i,j) = (rc(i,j) + gc(i,j) + bc(i,j))/3
となっており、Pointメソッドを使ってRGB値を取得しています。
これをGetpixelに置き換えるので
dim c(645,485),rc(645,485),gc(645,485),bc(645,485) As Long
Dim bmp As Bitmap = Form2.Picturebox2.Image
c=(i,j) = bmp.GetPixel(i, j).ToString()
rc(i,j) = (c(i,j) And &HFF)
gc(i,j) = (c(i,j) And 65280) \ 256&
bc(i,j) = (rc(i,j) + gc(i,j) + bc(i,j))/3
と置き換えたのですが、上手く読み込んでくれません。
上記のコードをどの様に直せばよろしいでしょうか。 ご指導お願いします。
|