Menüye Çok Kullanılan Dosyaları Eklemek

cartman

Katılımcı Üye
28 Ara 2005
932
10
zBjk
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...
 

cemil974

Yeni üye
29 Ocak 2007
10
0
Galiba Kendin biliyor kendin uyguluyorsun

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...
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
 

Deli_Doktor

Yeni üye
26 Tem 2007
3
0
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.
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.