Menüye Çok Kullanılan Dosyaları Eklemek

Galiba Kendin biliyor kendin uyguluyorsun

cartman' Alıntı:

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.CaptionEnd SubPrivate Sub Form_Load()Label1.Caption = "" ‘Son açılan dosyayı temsil eden etiketi temizleeklenen_dosya.Visible = False ‘Menü seçeneğini gizle ‘(Program yeni başladı ve hiç dosya açılmadı)CommonDialog1.filename = "*.*"End SubPrivate Sub Ac_Click() ‘Dosya * Aç komutu çalıştırıldığındaCommonDialog1.DefaultExt = "*.*" ‘Tüm dosyalarCommonDialog1.Action = 1 ‘Dosya Aç eklenen_dosya.Caption = CommonDialog1.filename ‘Genel diyalog kutusunda seçilen dosyayı ‘Son menü seçeneğine ekleeklenen_dosya.Visible = True ‘Son menü seçeneğini görünür hale getir.Label1.Caption = CommonDialog1.filenameEnd SubYukarı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...

Genişletmek için tıkla ...

yani ne demeliyim bilmiyorum paylaşımcı olmak güzel ama ah bide karman çorman yazman olmasa daha iyi eğer benim gibi yeni yeni birşey öğrenme gayreti içinde olan acemi insanların senin dilinde ve neyi neşilde anlattığı anlamaya çalışıyor veya sen anlatıyor ben anlamıyorsam bu sorun benden kaynaklanıyor demektir .Ben Tüm paylaşımcı arkadaşlarım ve kardeşlerimin fikrine saygılım bir insanım her nekadar senin nedemek istediğini anlamasamda .YİNEDE.TEŞEKKÜRLER

) yazmak değil anlatmak ve anlamakta yetenek istiyor

Paylaşım güzel. Ben kendi programlarım için şöyle bir algoritma kullanıyorum ;

Menu olarak ==> File
-New
-Open
-Recent
-Menu 1
-Menu 2
-.
.
-Menu10

Burada, program ilk çalıştığında, 'File' menüsünün alt menüsü olan 'Recent' menüsünün alt menüleri (Menu 1, Menu 2, Menu 3 ....Menu n) ni kapatıyor. Daha sonra program, bir ayar (config) dosyasından, son çalışılan belgeleri okuyor ve sayısı adedince daha önce kapattığımız menüleri açıyor ve o menülere belgenin ismini veriyor.
Acaba bu nasıl oluyor diyen ve onu çözen arkadaşımız gerçek bir programcılık örneği sergileyerek, çok güzel bir noktaya değinmiş.
Not : Bir ayar dosyası kullanmak yerine, başka yollarda olmalıdır.

VB de 'standart exe' yi seçin. 'Form' unuza menüler ekleyin ;
Dosya
-Yeni
-Aç
-Geçmiş
--G1
--G2
--G3
--G4
--G5
-Sep1(ayraç)
-Kaydet
-Farklı Kaydet
-Sep2
-Çıkış

Private Sub Form1_Load()
G1.visible = False
G2.visible = False
G3.visible = False
G4.visible = False
G5.visible = False

Open "config.cfg" for input as 1
input #1,a$
T = asc(a$)
For Y = 1 to T
input #1,a$
select case Y
case 1
G1.visible = True
G1.caption = a$
case 2
G2.visible = True
G2.caption = a$
case 3
G3.visible = True
G3.caption = a$
case 4
G4.visible = True
G4.caption = a$
case 5
G5.visible = True
G5.caption = a$
end select
next
close 1
end sub

Bu program, 'config.cfg' dosyasının içeriğini okuyarak, duruma göre gizlediğimiz menüleri açıyor.
CONFIG.CFG :
Son Belge Sayısı ====> String Değişkeni
Son Belge Ismi 1 ====> String Değişkeni
Son Belge Ismi 2 ====> String Değişkeni
.
.
Son Belge Ismi n ====> String Değişkeni
Şeklinde düşünülmüştür. Programınızın ayrıca, çalışan son belgeleri ve sayısını buraya kaydetmelidir. En basit haliyle budur.

Not : G1, G2, G3,...,GN menülerin program tarafından belirleyeceğiniz isimleridir (NAME). 'Caption' ise bizim göreceğimiz kısımdır. Ayak üstü yazdım, umarım hata yoktur.

deniyorum şimdi.teşekkürler.