ListView Nesnesinde Resim Gösterme

Bu dosya, bir UserForm üzerindeki ListView nesnesinde resimlerin nasıl gösterileceğini örnekler. Resimler bir ImageList nesnesine yüklenir, ardından ListView içinde simge görünümünde listelenir.

Dosyanın içeriği​

• UserForm1: İçinde ListView1, ImageList1 ve CommandButton1 nesneleri bulunur.
• ThisWorkbook: Dosya açıldığında formu otomatik gösteren kod burada yer alır.
• Excel dosyası (listview.xlsm) ZIP arşivinin içinde gelir. Resim dosyaları (er.jpg, ka.jpg, edepli.gif) Excel dosyasıyla aynı klasörde bulunmalıdır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur.

• Workbook_Open: Dosya açılır açılmaz UserForm1 formunu gösterir.
• UserForm_Initialize: Form açılırken LoadPicture ile dosyanın bulunduğu klasördeki er.jpg, ka.jpg ve edepli.gif resimlerini ImageList1 içine ekler.
• CommandButton1_Click: ListView1 görünümünü lvwIcon olarak ayarlar, ImageList1 nesnesini simge kaynağı olarak bağlar ve üç resmi sırayla ListItems koleksiyonuna ekler.

Nasıl kullanılır​

1. ZIP dosyasını indirin ve klasörü bilgisayarınıza çıkarın. Excel dosyasını ZIP içinden değil, çıkarılan klasörden açın; aksi halde resimler bulunamaz ve açılışta hata alınır.
2. Dosyayı açarken makroları etkinleştirin.
3. Açılan formda düğmeye tıklayın; resimler ListView içinde simge olarak listelenir.
4. Kendi resimlerinizi kullanmak için dosyaları aynı klasöre koyun ve UserForm_Initialize içindeki dosya adlarını değiştirin.

Önemli not​

ListView, Excel VBA'nın yerleşik bir nesnesi olmadığından çalışması için kaydının (Register) yapılmış olması gerekir. Nesne genellikle 64 bit Office sürümlerinde çalışmaz; dosya 32 bit Office sürümlerinde kullanılmalıdır.