• Home
 · 
• Graphics
 · 
• Compares two pictures/graphics

Compares two pictures/graphics

Compares two pictures/graphics

API Declarations


'for more information e-mail me on [email protected]
'or you can call me on 0096394005718



Rate Compares two pictures/graphics

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim s As String

Private Sub Command1_Click()
Open "pic1 path" For Binary As #1
a = Space(LOF(1))
Get #1, , a
Close #1
End Sub

Private Sub Command2_Click()
Open "pic2 path" For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1

End Sub

Private Sub Command3_Click()
If s = a Then 
MsgBox "the pic is same"
else
MsgBox "the pic is not same"
endif
End Sub