lvwReport Hakkında

[girdap]

İyi Akşamlar
lvwReport Nedir? Bilgi verebilir misiniz ?

Saygılarımla

 

[Mahmut Bayram]

Listview in bir nevi rapor (ayrınt&#305 özelliğidir.
Kolonlar sadece 'lvwReport.........(Ayrıntılar) görünümünde görüntülenir.
Listviewe veri alırken bu özellik etkin olmalıdır.

 

[Ferhat Pazarçevirdi]

Bir "LISTVIEW" nesnesinin görünüm şeklidir. LISTVIEW'in dört çeşit görünümü vardır.

-lvwreport, lvwicon, lvwlist, lvwsmallicon-

Lvwreport için örnekler şöyle;

1. "Dosya Aç" iletişim kutusundaki "AYRINTILAR" görünümü
2. Windows Explorer'daki dosyaların "AYRINTI" görünümü gibi

 

[Mahmut Bayram]

http://excel.web.tr/showthread.php?t=12735&highlight=listview

 

[girdap]

Merhaba, öncelikle sizlere teşekkür ederim,
ListView'e veri alıken bu özellik nasıl etkin hale getirilir? ListView a veri alırken hangi temelleri bilmek gerekir?

Saygılarımla

 

[Ferhat Pazarçevirdi]

Sn.Girdap;

"Sayfa1" adlı excel sheetindeki verilerimiz şöyle olsun.

A1: Ad B1:Soyad
A2:Mehmet B2:Aslan
A3:Ahmet B3:Çelik

Bir adet userformumuzun(Userform1) ve bunun üzerinde de bir adet listview(Listview1) nesnemizin olduğunu varsayalım.

Userform açıldığında; listview'e, sayfadaki verilerin yüklenmesini istiyorsak; basitçe aşağıdaki kodu kullanırız.

Private Sub Userform_initialize()
With ListView1
   .View = lvwReport 'yukarıda bahsedilen görünüm şekli (ayrıntılı görünüm)
   .FullRowSelect = True 'listview'deki herhangi bir elemana tıkladığınızda tüm satırın seçili görünmesini sağlar
   .Gridlines = True 'Excel sayfalarındaki gibi çizgilerin çıkmasını sağlar
   With .ColumnHeaders 'Kolon başlıklarını oluşturuyoruz.
       .Add , , cells(1,1), 30 'buradaki 30 sütunun genişliği ifade eder.
       .Add , , cells(1,2), 100
   End With
   son = Cells(65536, 1).End(xlUp).Row 'Sayfada verinin olduğu son satırı buluyoruz.
       For i = 2 To son 'Yukarıda temel yapısını oluşturduğumuz listview'e verileri aktarmaya başlıyoruz
       'NOt : Listview'e veriler satır satır ilave edilir.
           .ListItems.Add , , Cells(i, 1) '1.sütunun İlk elemanını ilave ediyoruz. 
           .ListItems.Item(i - 1).SubItems(1) = sh.Cells(i, 2) '1.sütunun 2.Elamanını (yani ayrıntıyı) ilave ediyoruz.
       Next i
End With
End sub