UserForm Boyutlandırma

Bu dosya, Excel VBA UserForm penceresinin çalışma sırasında fareyle genişletilip daraltılmasını sağlar. UserForm nesnesi varsayılan olarak boyutlandırma seçeneği sunmaz; dosyadaki sınıf modülü, form açıldığında pencere stiline boyutlandırma çerçevesini ekleyerek bu eksiği giderir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Formu açan CommandButton1 düğmesini barındırır. Sayfada formül veya veri tablosu yoktur.
• UserForm1: Boyutlandırılabilir hale getirilen örnek form.
• clsUserFormRezise: Boyutlandırma işlemini yapan sınıf modülü.

Makrolar​

• CommandButton1_Click (Sayfa1): UserForm1 formunu görüntüler.
• UserForm_Activate (UserForm1): Form etkinleştiğinde formun kendisini clsUserFormRezise sınıfından oluşturulan nesneye aktarır. Nesne, modül düzeyinde objFormResize adıyla tanımlıdır.
• Form (clsUserFormRezise): Formun başlık metnini kullanarak pencere tanıtıcısını bulur ve SetUserFormStyle yordamını çağırır.
• SetUserFormStyle: Pencere stilini okur, boyutlandırma çerçevesi bitini ekler ve stili geri yazar. Pencere bulunamazsa işlem yapılmadan çıkılır.

Kod, Windows'un user32 kütüphanesinden FindWindow, GetWindowLong ve SetWindowLong API işlevlerini kullanır. Bu işlevler yalnızca açık formun pencere stilini değiştirir; dosya silme veya dışarıya bağlantı işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak UserForm1 formunu açın.
3. Formun kenarlarından veya köşelerinden tutup sürükleyerek boyutunu değiştirin.
4. Kendi projenizde kullanmak için clsUserFormRezise sınıf modülünü projenize aktarın; formun kod bölümüne objFormResize tanımını ve UserForm_Activate yordamını ekleyin.

Kod, pencereyi form başlığıyla aradığı için aynı başlığı taşıyan başka bir pencere açıksa yanlış pencere etkilenebilir; formlara benzersiz başlık verilmesi önerilir. API bildirimleri 32 bit sözdizimiyle yazılmıştır; 64 bit Excel sürümlerinde PtrSafe ve LongPtr düzenlemesi gerekebilir.