2024年4月12日发(作者：)

图像相似度比较的例子：

模块代码：

Option Explicit

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

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long

窗体代码：

Private Sub Command1_Click()

Dim w As Integer, h As Integer

ode = vbPixels

Dim L As Single

Dim r2, g2, b2 As Integer

Dim r1, g1, b1 As Integer

Dim c1 As Long

Dim x0 As Integer

Dim y0 As Integer

w =

h =

ointer = 11

For x0 = 0 To '图1的宽

For y0 = 0 To '图像框1的高