[font color=#FF0000]对比两张完全相同的图片共会对比103041处,
对比两张完全不相同的图片,共会对比98868处,

而我故意复制一张图处,并且用绘图工具加了两个小小黑点,进行对比时,却发现还有90094处不一样,我觉得不可能吧?????
[/font]
我本来想把我的三张图片上传上来的,但上传附件的,浏览为灰色的, 我上传不了附件...
只好把代码放上来,大家指点一下::
Private Sub Command2_Click()
    If Picture1(0).Width <> Picture1(1).Width Or Picture1(0).Height <> Picture1(1).Height Then
       sampe = False
        MsgBox "图片大小都不一样的!"
    Exit Sub
   End If
   n = 0
   nn = 0
 sampe = True
    For X1 = 0 To Picture1(0).Width Step 5
       For X2 = 0 To Picture1(1).Width Step 5
           If Picture1(0).Point(X1, X2) <> Picture1(1).Point(X1, X2) Then
              sampe = False
              n = n + 1
           Else
              nn = nn + 1
           End If
       Next X2
    Next X1
   If sampe = False Then
       MsgBox "图片不是一样的!在 " & n & " 处不一样"
   Else
       MsgBox "图片一样,!" & nn & " 处进行了对比"
   End If
End Sub