Photo Viewer


The Photo Viewer application lets you open the image files from your computer and show them. DriveListBox, DirListBox and the FileListBox controls have been used in this VB6 program.

             
                                                   >> DOWNLOAD


Screenshot:
VB6 photo viewer program


Code:
Dim f As String
________________________________________________
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
________________________________________________
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub
________________________________________________
Private Sub File1_Click()
    f = File1.Path
  
    If Right(f, 1) <> "\" Then
        f = File1.Path + "\"
    End If

    imgPhotoView.Picture = LoadPicture(f + File1.FileName)
End Sub