Jobs
Author: IceMan Date Submitted: 9/30/2006 Category: Graphics Compatibility: VB 6,VB 5 This code has been accessed 7679 times.
Email Yourself this snippet:
'add 3 command 'for more information e-mail me on iceman118@8myway.com 'or you can call me on 0096394005718
Code
Dim a As String 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
