by Nadeem Gulzar Rana (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30th September 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Image File viewer
VBcoders
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Drive1_GotFocus()
File1.FileName = Text1.Text
End Sub
Private Sub File1_Click()
On Error GoTo pnd
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
pnd:
If Err.Number = 481 Then
MsgBox "Invalid file or file is curupted!"
End If
End Sub
Private Sub Text1_Change()
File1.FileName = Text1.Text
End Sub