Çarpı Simgesiz UserForm

Bu dosya, UserForm penceresinin başlık çubuğundaki kapatma (çarpı) simgesinin nasıl kaldırılacağını gösteren bir örnektir. UserForm nesnesinde çarpı simgesini gizleyen bir özellik bulunmaz; bu nedenle işlem Windows API fonksiyonlarıyla yapılır. Çarpıdan kapanmayan UserForm örneği için Çarpıdan Kapanmayan UserForm dosyasına da bakılabilir.

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

Dosyanın içeriği​

• UserForm1: Çarpı simgesi kaldırılmış form. Üzerinde formu kapatan bir CommandButton1 düğmesi bulunur.
• Module1: Formu açan osma makrosunu içerir.

Makrolar​

• osma: UserForm1 formunu gösterir. Makro Geliştirici sekmesindeki Makrolar penceresinden çalıştırılır.
• UserForm_Initialize: Form açılırken çalışır. Form başlığı "Çarpı Simgesi İçermeyen UserForm ExcelDepo®" olarak ayarlanır. Ardından user32 kütüphanesindeki FindWindowA ile form penceresinin tanıtıcısı bulunur. Excel sürümüne göre pencere sınıf adı ThunderXFrame veya ThunderDFrame olarak belirlenir. GetWindowLongA ile pencerenin stil değeri okunur, stil değerinden sistem menüsü biti çıkarılarak SetWindowLongA ile geri yazılır. Böylece çarpı simgesi başlık çubuğundan kalkar.
• CommandButton1_Click: Düğmeye tıklandığında formu kapatır. Çarpı simgesi olmadığı için form bu düğmeyle kapatılır.

Kodda dosya silme veya dışarıya bağlantı kurma işlemi yoktur; yalnızca user32 kütüphanesindeki üç pencere fonksiyonu kullanılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla Makrolar penceresini açıp osma makrosunu çalıştırın.
3. Çarpı simgesi olmayan form görüntülenir; formu kapatmak için CommandButton1 düğmesini kullanın.
4. Aynı yapıyı kendi formunuzda kullanmak için API tanımlarını, Pencere değişkenini ve UserForm_Initialize kodunu formunuza kopyalayın. Form başlığı ile FindWindowA içinde aranan başlığın aynı olması gerekir.