作者SixM (只有流星没有雨)
看板Visual_Basic
标题[VB6 ]请问比较两张图片中某个区域的图案是否相同的方法
时间Fri Sep 12 10:05:07 2008
小弟透过以下程式码取得图片某个点的座标值
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
1F：→ SixM:已解决 ^^ 09/12 11:44