• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Image File viewer

Image File viewer

Image File viewer

Rate Image File viewer

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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