Private Sub Form_Load()
Combo1.AddItem "*.ico" ‘ Dosya tipleri ComboBox’a ekleniyor
Combo1.AddItem "*.bmp"
Combo1.ListIndex = 1 ‘ İlk dosya tipi seçiliyor
File1.Pattern = Combo1.Text ‘ FileListBox’da listelenecek dosya tip
End Sub ‘ belirleniyor
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive ‘ Sürücü değişimi DirListBox’a
End Sub ‘ bildiriliyor
Private Sub Dir1_Change()
File1.Path = Dir1.Path ‘ Klasör değişimi FileListBox’a
End Sub ‘ bildiriliyor
Private Sub Combo1_Click()
File1.Pattern = Combo1.Text ‘ Dosya tipi değiştiriliyor
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.FileName)
End Sub ‘ FileListBox’da tıklanan resim
‘ resim bosyası ImageBox’da
‘ açılıyor
