如何快速对比两幅图片? 如何快速对比两幅图片?根据不同生出第三张图片,相同部分填充指定的颜色。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下面这个代码内嵌汇编,1024x768的两个文件对比在我的电脑(2.4G/512M)上最快时4msPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (lpPrevWndFunc As Any, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate AsmCode(46) As BytePrivate Sub InitAsmCode() If AsmCode(0) <> &H55 Then AsmCode(0) = &H55 AsmCode(1) = &H8B AsmCode(2) = &HEC AsmCode(3) = &H8B AsmCode(4) = &H55 AsmCode(5) = &H10 AsmCode(6) = &H85 AsmCode(7) = &HD2 AsmCode(8) = &H76 AsmCode(9) = &H21 AsmCode(10) = &H8B AsmCode(11) = &H45 AsmCode(12) = &HC AsmCode(13) = &H8B AsmCode(14) = &H4D AsmCode(15) = &H8 AsmCode(16) = &H56 AsmCode(17) = &H57 AsmCode(18) = &H8B AsmCode(19) = &H31 AsmCode(20) = &H8B AsmCode(21) = &H38 AsmCode(22) = &H3B AsmCode(23) = &HF7 AsmCode(24) = &H75 AsmCode(25) = &H6 AsmCode(26) = &HC7 AsmCode(27) = &H0 AsmCode(28) = &H0 AsmCode(29) = &H0 AsmCode(30) = &H0 AsmCode(31) = &H0 AsmCode(32) = &H83 AsmCode(33) = &HC1 AsmCode(34) = &H4 AsmCode(35) = &H83 AsmCode(36) = &HC0 AsmCode(37) = &H4 AsmCode(38) = &H4A AsmCode(39) = &H75 AsmCode(40) = &HE9 AsmCode(41) = &H5F AsmCode(42) = &H5E AsmCode(43) = &H5D AsmCode(44) = &HC2 AsmCode(45) = &H10 AsmCode(46) = &H0 End IfEnd Sub Public Function ImgCompare(SrcData As cDIB, DestData As cDIB) As Boolean Call InitAsmCode CallWindowProc AsmCode(0), SrcData.ImagePtr, DestData.ImagePtr, SrcData.mWidth * SrcData.mHeight, 0 ImgCompare = TrueEnd Function vb doevents使用的问题 庆祝CSDN恢复使用,散分 请教一个RptFunction控件的问题? 请问怎样在编程种实现用日期作名称建立文件夹和文件 WebBrowser 的问题 如何在程序初始化的时候设置 WINDOWS任务栏自动隐藏? Access中实现求集合最大值记录的问题 毕设答辩通过,散分,截止时间7点半 如何调用帮助文件到指定的主题?谢谢 SQL数据库恢复碰到的问题 VBA的一个语法问题 很简单的问题,vb连接access,出错??
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (lpPrevWndFunc As Any, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private AsmCode(46) As Byte
Private Sub InitAsmCode()
If AsmCode(0) <> &H55 Then
AsmCode(0) = &H55
AsmCode(1) = &H8B
AsmCode(2) = &HEC
AsmCode(3) = &H8B
AsmCode(4) = &H55
AsmCode(5) = &H10
AsmCode(6) = &H85
AsmCode(7) = &HD2
AsmCode(8) = &H76
AsmCode(9) = &H21
AsmCode(10) = &H8B
AsmCode(11) = &H45
AsmCode(12) = &HC
AsmCode(13) = &H8B
AsmCode(14) = &H4D
AsmCode(15) = &H8
AsmCode(16) = &H56
AsmCode(17) = &H57
AsmCode(18) = &H8B
AsmCode(19) = &H31
AsmCode(20) = &H8B
AsmCode(21) = &H38
AsmCode(22) = &H3B
AsmCode(23) = &HF7
AsmCode(24) = &H75
AsmCode(25) = &H6
AsmCode(26) = &HC7
AsmCode(27) = &H0
AsmCode(28) = &H0
AsmCode(29) = &H0
AsmCode(30) = &H0
AsmCode(31) = &H0
AsmCode(32) = &H83
AsmCode(33) = &HC1
AsmCode(34) = &H4
AsmCode(35) = &H83
AsmCode(36) = &HC0
AsmCode(37) = &H4
AsmCode(38) = &H4A
AsmCode(39) = &H75
AsmCode(40) = &HE9
AsmCode(41) = &H5F
AsmCode(42) = &H5E
AsmCode(43) = &H5D
AsmCode(44) = &HC2
AsmCode(45) = &H10
AsmCode(46) = &H0
End If
End Sub
Public Function ImgCompare(SrcData As cDIB, DestData As cDIB) As Boolean
Call InitAsmCode
CallWindowProc AsmCode(0), SrcData.ImagePtr, DestData.ImagePtr, SrcData.mWidth * SrcData.mHeight, 0
ImgCompare = True
End Function