Özel Menü
Cumartesi, Eylül 20, 2008 Bu bize bu menüyü sadece bir açık biçim ihtiyacınız olan yılından beri, açık biçim açısından zaman, satır kod ve iyi bir düzenleme kaydetmenize olanak verir menü bir tür. Açık form sayısını azaltarak ek olarak her bir form açmak için bir menü düğmelerinin sayısını azaltır.
Menüsü Bu tip, kesinlikle bir süre var ve Erişim birçok kullanıcı tarafından kullanılıyor.
Yani bu menü nerede?
Kullanıcı bu sayede açmayı planlıyoruz tüm formları içeren bir açılan kutu kullanarak menü yaratalım. Eğer birleşik giriş kutusundan bir seçeneği seçtiğinizde başvuru formu alt form içinde görüntülenir. Sonra adım adım menü yapmak başlar.
1 - Kullanıcı size her form ve açılacak formun ismini vermek istediğiniz ismi saklayacak bir tablo yaratalım. Örneğin ben aşağıdaki alanları ile masaya 'tblmenu' oluşturuldu:
Alan Türü
Nomedomenu metin - menüde görülecektir> Ad (açılan kutu)
metin oluşturacak - açacak form> İsim
Örneğin tanıtılan veriler sonra:
NomedoMenu Formu
Hesapları Form1
Mevduat Form2
Hareketleri formulario3
Hesap-Box formulario4
Hesap Hesap formulario5
Formulario6 Extract
2 - Sonra bir önceki tablodan bir sorgu oluşturmak:
Tblmenu masa seçti ve daha sonra biz menü biz formları açmak istiyorsanız oldukça birkaç kez bulmak kolay olması için sıralama nomedomenu artan için seçtiğimiz iki alan seçin. Bu sorgu için ben CsMenu 'denir.
3 - Kullanıcı formu 'Menü' yaratalım, yani Tasarım görünümünde yeni bir form seçin. Sonra bir birleşik giriş kutusu oluşturmak ve aşağıdaki özellikleri değiştirebilirsiniz:
- Sütun sayısı: 2
- Sütun Genişlikleri: 1cm, 0cm;
- Hattın Kökeni: csmenu (önceki paragrafta oluşturulan sorgunun adını olan)
4 - Aynı form biz (ben menuquadro denilen örnekte) bir ilişkisiz ana formun alt form oluşturur. Bu formlar her menü (açılan kutu) seçim için açık olacak bu şeklidir.
5 - Şimdi alt formdaki birleşik giriş kutusunda seçili menüyü açmak sağlayacak bir modül oluşturun.
Biz bir modül oluşturulur (Ben abrirmenu 'denir) ve aşağıdaki kodu yapıştırılan:
Public Function AtivarMenu (Combmenu ComboBox, subabrir Subform)
Dim As Abrirform
= (1) Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Ativarmenu = ([Menü], [menuquadro]) 'Menü' açılan kutunun adı ve 'menuquadro' olduğunu: Form menüsünde açılan kutunun özellikleri ve Update olayından sonra oluşturulan işlevi koyacaktım sonra alt formun adı.
Ve son olarak menü kullanıma hazırdır. Sadece deneyin ve kullanın. Umarım bu ipucu hoşunuza gitmiştir.
Download: Menü
Menünün bir resim altında.
Özel Menü
