VB图像比较，同一个摄像机在不同时间拍出两幅图，现想对这两幅图进行比较，比较里面的图像有没有不同只要得出是不同就可以

Question

VB 图像比较，同一个摄像机在不同时间拍出两幅图，现想对这两幅图进行比较，比较里面的图像有没有不同只要得出是不同就可以

Answer 1

一个个像素比吗？你把两张图放到两个PICTURE里，用point（X,Y）函数来获取坐标X,Y点的颜色值 Private Sub Command1_Click() Dim P1 As String, P2 As String Dim X As Long, Y As Long, Dif As Boolean P1 = "H:\2.JPG" P2 = "H:\3.JPG" Picture1.ScaleMode = 3 Picture2.ScaleMode = 3 Picture1.AutoSize = True Picture2.AutoSize = True Picture1.AutoRedraw = True Picture2.AutoRedraw = True Picture1.Picture = LoadPicture(P1) Picture2.Picture = LoadPicture(P2) If Picture1.ScaleWidth <> Picture2.ScaleWidth Or Picture1.ScaleHeight <> Picture2.ScaleHeight Then MsgBox "两图不一样。" Exit Sub End If For X = 1 To Picture1.ScaleWidth For Y = 1 To Picture1.ScaleHeight If Picture1.Point(X, Y) <> Picture2.Point(X, Y) Then Dif = True Exit For End If Next Y If Dif = True Then Exit For Next X If Dif = True Then MsgBox "两图不一样。" Else MsgBox "两图相同。" End If End Sub 窗体上放两个PICTURE控件分别是picture1和picture2，再放个command1控件，复制代码，把两个图片地址修改一下就行