如何判断两个图象框的图象是否完全一样？
如何判断两个图象框的图象是否完全一样？ 问题点数：100、回复次数：7Top
1 楼cso（无聊中...）回复于 2004-08-04 19:23:45 得分 80
逐个点点判断Top
2 楼cso（无聊中...）回复于 2004-08-04 19:40:11 得分 0
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 SubTop
3 楼BlueBeer（1win）回复于 2004-08-04 19:42:14 得分 10
有过类似的帖子
http://community.csdn.net/Expert/topic/3107/3107273.xmlTop
4 楼cso（无聊中...）回复于 2004-08-04 19:44:12 得分 0
更新：！！！！！！！！！！！！！
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 SubTop
5 楼Hotthing（豪星）回复于 2004-08-04 20:40:10 得分 3
其实这是个要说很容易就很容易的, 要说很难就很难的问题, 例如前一副图象是后一幅图象偏一个像素, 你逐个比当然不一样, 但是其实他们是一样的!
Top
6 楼thirdapple（.:RNPA:.陨落雕 - 芝兰宝树）回复于 2004-08-04 20:52:17 得分 4
月经贴啊，在FAQ里面已经有详细的解释了：
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196645Top
7 楼luohk（luohk）回复于 2004-08-04 20:54:26 得分 3
很慢......加一小点(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"
以上要声名哟!Top
