**********************************************************
'Image Displayer Image nesnesini kullanarak resim
'formatlarını açmak için tasarlanmış
'bir programdır.Bu programda aynı zamanda
'Dirlistbox,Drivelistbox,Filelistbox
'nesnelerininde beraber kullanlmasıda
'gösterilmiştir.
'**********************************************************
Private Sub dirList_Change()
filList.Path = dirList.Path
Text1.Text = dirList.Path
End Sub
Private Sub drvList_Change()
On Error GoTo hata
dirList.Path = drvList.Drive
Exit Sub
hata:
MsgBox "Lütfen CD veya Disketin cihaz içinde olduğuna emin olun ", vbCritical, "Ulaşım Hatası"
drvList.Drive = dirList.Path
Exit Sub
End Sub
Private Sub filList_Click()
Text1.Text = dirList.Path & "\" & filList.FileName
On Error GoTo hata
Image1.Picture = LoadPicture(Text1.Text)
Exit Sub
hata:
MsgBox "Lütfen Görüntülenebilecek bir öğe seçin", vbInformation, "UYARI"
End Sub
Private Sub Form_Load()
Text1.Text = drvList.Drive
End Sub