Dim mybmp1
Dim mybmp2
Set mybmp1 = LoadPicture ("c:\lcd.bmp")
Set mybmp2 = LoadPicture ("c:\lcd1.bmp")
msgbox mybmp1.Height
msgbox mybmp1.Width
For Y = 0 To mybmp1.Height
For X = 0 To mybmp2.Width
fColor1 = mybmp1.Point(X, Y)
fColor2 = mybmp2.Point(X, Y)
if fColor1<>fColor2 then
msgbox "不一样!"
End If
Next 'X
Next 'Y作者: ldz_1_0_1 时间: 2011-2-21 19:33
没人知道么?