這個是比較函數
Private Function PicCom(m As String, n As String) As Boolean
Dim a() As Byte, b() As Byte
Open m For Binary As 1
ReDim a(LOF(1) - 1)
Get 1, , a
Close 1
Open n For Binary As 1
ReDim b(LOF(1) - 1)
Get 1, , b
Close 1
If StrComp(a, b) <> 0 Then
PicCom = False
Else
PicCom = True
End If
End Function
Private Sub Command1_Click()
Call SavePicture(Picture1(0), App.Path & "\temp1.jpg")
Call SavePicture(Picture1(1), App.Path & "\temp2.jpg")
If PicCom(App.Path & "\temp1.jpg", App.Path & "\temp2.jpg") Then
MsgBox "壹樣"
Else
MsgBox "不壹樣"
End If
Kill App.Path & "\temp1.jpg"
Kill App.Path & "\temp2.jpg"
End Sub
Private Sub Form_Load()
'圖片路徑自己改
Picture1(0).Picture = LoadPicture(App.Path & "\20.jpg")
Picture1(1).Picture = LoadPicture(App.Path & "\c06.jpg")
End Sub