如何判断两个图象框的图象是否完全一样？

Question

如何判断两个图象框的图象是否完全一样？

Answer 1

Picture1的大小一定要和Picture2一样！！！！
还有比较费时间！！！
Private Sub Command1_Click()
Dim Xx As Long, Yy As Long
For Yy = 0 To Picture1.Height
    For Xx = 0 To Picture1.Width
    DoEvents
    If Picture1.Point(Xx, Yy) <> Picture2.Point(Xx, Yy) Then
     MsgBox "Not Same!!!!"
     Exit Sub
    End If
    Next Xx
Next Yy
End Sub

Answer 2

有过类似的帖子http://community.csdn.net/Expert/topic/3107/3107273.xml

Answer 3

更新：！！！！！！！！！！！！！
Private Sub Command1_Click()
Dim Xx As Long, Yy As Long
Picture2.Height=Picture1.Height
Picture2.Width=Picture1.Width
For Yy = 0 To Picture1.ScaleHeight
    For Xx = 0 To Picture1.ScaleWidth
    DoEvents
    If Picture1.Point(Xx, Yy) <> Picture2.Point(Xx, Yy) Then
     MsgBox "Not Same at Point(" & Xx & "," & Yy & ")!!!!"
     Exit Sub
    End If
    Next Xx
Next Yy
End Sub

Answer 4

月经贴啊，在FAQ里面已经有详细的解释了：http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196645

Answer 5

很慢......加一小点(0.0.0.0.0.0.0微米)就出错了
   最简单的就是文件名比较
A=X.X="C:/XXX.BMP"
B=X.X="C:/XXXXX.XXX.BMP"
IF A=B THEN MSGBOX"XXX" ELSE "XXXXXX"以上要声名哟!