VB对比两幅的问题!!!

来源:百度知道 编辑:UC知道 时间:2024/06/15 14:29:34
请教如何用VB对比两幅图是否一样,最好给出源码,我会慢慢补分的,谢谢!如果一样显示一样,不一样就显示不一样,3Q!!!

'我只会靠对应像素颜色是否相同判断(可以判断找茬图片,但两副图片尺寸要求严格对应),如果你说的是图像匹配就相当复杂了~
'新建窗体,添加picture1(0),picture1(1),picture2,command1,hscroll1
'以下保存在模块中:
Public Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Public Const STRETCH_HALFTONE = 4
Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Type OPE