Menüye Çok Kullanılan Dosyaları Eklemek
İşte Visual Basic programlarınıza profesyonellik katacak bir püf noktası daha. Word, Excel gibi popüler programlar Dosya menülerinde “En son kullanılan” dosyalar için bir
alan tutarlar. Böylece kullanıcı bu dosyayı bir daha açmak istediğinde dosyanın yerini genel diyalog kutusunda aramak zorunda kalmaz, menüden bu dosyayı seçerek açılmasını sağlayabilir. Siz de buna benzer bir şey yapabilirsiniz. Öncelikle yanda görülen 1. Formu ve üzerindeki menüyü yaratmakla başlayın.
Private Sub eklenen_dosya_Click()
Label1.Caption = eklenen_dosya.Caption
End Sub
Private Sub Form_Load()
Label1.Caption = "" ‘Son açılan dosyayı temsil eden etiketi temizle
eklenen_dosya.Visible = False ‘Menü seçeneğini gizle
‘(Program yeni başladı ve hiç dosya açılmadı)
CommonDialog1.filename = "*.*"
End Sub
Private Sub Ac_Click() ‘Dosya * Aç komutu çalıştırıldığında
CommonDialog1.DefaultExt = "*.*" ‘Tüm dosyalar
CommonDialog1.Action = 1 ‘Dosya Aç
eklenen_dosya.Caption = CommonDialog1.filename ‘Genel diyalog kutusunda seçilen dosyayı
‘Son menü seçeneğine ekle
eklenen_dosya.Visible = True ‘Son menü seçeneğini görünür hale getir.
Label1.Caption = CommonDialog1.filename
End Sub
Yukarıdaki kodları da yazdıktan sonra programınızı çalıştırın ve Dosya menüsünden Aç komutunu seçin. Herhangi bir dosya seçtikten sonra bunun, Dosya menüsünün en alt satırında eski ismi “eklenen_dosya” olan yere yerleştiğini göreceksiniz. İşte bu kadar basit...