原理是利用 For Y = 0 To Picture1.Height Step 1'纵向扫描 For X = 0 To Picture1.Width 1'横向扫描 fColor = Picture1.Point(X, Y) '取得扫描点的颜色值 逐点扫描比较就可以了For Y = 0 To Picture1.Height For X = 0 To Picture1.Width fColor1 = Picture1.Point(X, Y) fColor2 = Picture2.Point(X, Y) if abs(fColor1-fColor2)>2 then '误差在一定范围内视为相似 msgbox "不一样就是不一样!" End End If Next X Next Y
For Y = 0 To Picture1.Height Step 1'纵向扫描
For X = 0 To Picture1.Width 1'横向扫描
fColor = Picture1.Point(X, Y) '取得扫描点的颜色值
逐点扫描比较就可以了For Y = 0 To Picture1.Height
For X = 0 To Picture1.Width
fColor1 = Picture1.Point(X, Y)
fColor2 = Picture2.Point(X, Y)
if abs(fColor1-fColor2)>2 then '误差在一定范围内视为相似
msgbox "不一样就是不一样!"
End
End If
Next X
Next Y
是真的,很多搜索引擎都已经支持了,随便给两个TinEye is a reverse image search enginepicitup