Compares two pictures/graphics

by IceMan (3 Submissions)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30^th September 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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

Rate Compares two pictures/graphics



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

Download this snippet Add to My Saved Code

Compares two pictures/graphics Comments

No comments have been posted about Compares two pictures/graphics. Why not be the first to post a comment about Compares two pictures/graphics.

Compares two pictures/graphics

Compares two pictures/graphics Comments

Post your comment

Difficulty