[VB6 ]請問比較兩張圖片中某個區域的圖案是否相同的方法
小弟透過以下程式碼取得圖片某個點的座標值
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Xc_axis_Value.Text = x / 15
Yc_axis_Value.Text = y / 15
End Sub
再用相同程式碼去取得picture2某個點的座標值
之後，小弟想要去比較picture1跟picture2中同個位置區域的圖案是否完全相同
好比(0,0)到(20,30)這個矩形區塊
使用以下的程式碼
Private Sub compare_Click()
Dim Px As Integer
Dim Py As Integer
Dim picture1 As Bitmap
Dim picture2 As Bitmap
Dim pixelPic1(100, 100) As Integer
Dim pixelPic2(100, 100) As Integer
Dim match As Integer
match = 1
For Px = 0 To 20 Step 1
For Py = 0 To 30 Step 1
pixelpic1(Px, Py) = picture1.GetPixel(Px, Py)
pixelpic2(Px, Py) = picture2.GetPixel(Px, Py)
If pixelpic1(Px, Py) <> pixelpic2(Px, Py) Then
match = 0
Exit For
Exit For
End If
Next Py
Next Px
Text1.Text = match
End Sub
按下compare鍵後就開始去比較picture1跟picture2的某個指定區塊
若是此區塊的圖案完全相同，match=1，若不同match=0
但是一直有問題
Dim的部分，不知道是否有定義錯誤，此外，我一直找不到Bitmap正確的宣告方式
可以請各位前輩幫忙看一下，哪邊出了問題，或是有其他更好的方法
感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 222.156.254.85
→
09/12 11:44, , 1F
09/12 11:44, 1F