UserForm Resize Özelliği Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
2) UserForm Kodu
Yararlanılması temennisiyle
Hazır Kod
1) Standart Modül Kodu
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(53 satır)2) UserForm Kodu
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(34 satır)Açıklama
UserForm Resize Özelliği Ekleme başlığı altında sunulan bu hazır makro kodu, işlemin adımlarını öğretici biçimde sunmaktadır.Aşamalar
- VBA Düzenleyici açılmaktadır. Ekle menüsünden Modül eklenmektedir. Standart Modül Kodu bu modüle yapıştırılmaktadır.
- Ekle menüsünden UserForm eklenmektedir. Varsayılan ad UserForm1 olarak bırakılmaktadır. UserForm Kodu UserForm1 kod penceresine yapıştırılmaktadır.
- UserForm üzerinde denetimler manuel eklenmektedir. Aşağıdaki ad ve özellikler kullanılmaktadır.
UserForm üzerinde manuel eklenecek denetimler
- Label denetimi. Caption Açiklama. Left 12, Top 12, Width 80 olmaktadır.
- TextBox denetimi. Name txtAciklama. Left 100, Top 10, Width 300, Height 20 olmaktadır.
- ListBox denetimi. Name lstVeri. Left 12, Top 40, Width 388, Height 160 olmaktadır.
- CommandButton denetimi. Name cmdKapat. Caption Kapat. Left 330, Top 208, Width 70, Height 28 olmaktadır.
Kullanım
- Modüldeki Show_Resizable_Form yordamı çalıştırılmaktadır.
- Form açıldıktan sonra kenarlardan sürüklenerek yeniden boyutlandırma yapılmaktadır.
- Form boyutu değiştikçe denetimler otomatik konumlandırılmaktadır.
Sınırlamalar ve Notlar
- Kod 32 bit ve 64 bit Office ortamlarında çalışmaktadır.
- Pencere sınıf adı Office sürümüne göre değişebilmektedir. ThunderXFrame yerine ThunderDFrame görülebilmektedir.
- Minimum boyut gereksinimi var ise UserForm Resize yordamına sınır kontrolü eklenmesi önerilmektedir.
Yararlanılması temennisiyle