Program Image Viewer Visual Basic

Image viewer adalah sebuah program yang dibuat untuk melihat suatu gambar dalam sebuah direktori.
Berikut Source code nya..!!

Private Sub cmd_keluar_Click()
    End
End Sub

Private Sub cmd_lihat_Click()
    Dim nama_gambar As String
   
    If Right(file_gambar.Path, 1) = "\" Then
        nama_gambar = file_gambar.Path + file_gambar.FileName
    Else
        nama_gambar = file_gambar.Path + "\" + file_gambar.FileName
    End If
    lbl_gambar.Caption = nama_gambar
    img_gambar.Picture = LoadPicture(nama_gambar)
End Sub

Private Sub dir_gambar_Change()
    file_gambar.Path = dir_gambar.Path
End Sub

Private Sub drv_gambar_Change()
    dir_gambar.Path = drv_gambar.Drive
End Sub


Atau dapat di download disini..!!