ListBox Nesnesinde Başlıklara Göre Sıralama Yapma

Dosyanın içeriği​

• Sheet2: A1:C6 aralığında, her satırda IMAGE fonksiyonuyla bir görselin çağrıldığı 6 formül bulunur. Görsel adresi dış bağlantı içerir.
• GridForm: Kutucukların yerleştirildiği kullanıcı formudur.
• GridTile: Tek bir kutucuğu oluşturan sınıf modülüdür.

Kullanılan formüller​

=IMAGE("<bağlantı>";B1;1)

Makrolar​

• UserForm_Initialize (GridForm): Form açılırken 10 kutucuk oluşturur. Kutucuklar "Test", "Test 2", "Test 3", "Test 4", "Test 5", "T6" ile "T9" ve "Test 6" başlıklarını taşır. Konumlar bir önceki kutucuğun sağ ve alt kenarına göre hesaplanır; Small, wide ve Large boyutları ile RGB renkleri kullanılır. "Test 2" ve "Test 6" kutucuklarında ek açıklama metni de gösterilir.
• Create (GridTile): Forma Label ekler; rengi, kenarlığı, konumu ve boyutu ayarlar, başlığı ve varsa mesajı ekler.
• SizeTile: Small, medium, wide ve Large boyutlarını 71 birimlik ölçüye göre belirler.
• Caption ve Message: Başlık ve açıklama etiketlerini kutucuğun üzerine yerleştirir.
• TileRight ve TileBelow: Sonraki kutucuğun sol ve üst konumunu verir.
• HandCursor: Fare imlecini el simgesine çevirmek için K:\AA\rtmacrosshared\HandCursor.ico yolundaki dosyayı yüklemeye çalışır. Dosya bulunamazsa hata yoksayılır ve kutucuklar normal imleçle çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F11 ile VBA düzenleyicisini açın.
3. Proje ağacında GridForm formunu seçip F5 tuşuyla çalıştırın.
4. Kutucukların başlık, boyut ve renklerini değiştirmek için UserForm_Initialize içindeki Create satırlarını kendi düzeninize göre güncelleyin.