vb6 - ListView Nesnesi

Visual basic 6 derleyicimizi açiyoruz. Ctrl + t  yaparak components’leri açiyoruz.Microsoft Windows Common Controls 6.0 ocx’ini seçip uyguladiktan sonra  components penceresini kapatiyoruz.

Form Tasarimi ve Kolon Olusturma

ListView(Nesne adi: lv ) nesnesini formumuza ekliyoruz

Forma 4 tane kolon ekleyecegiz.Bu yüzden 4 tane metin kutusu olusturalim.

Ve birer tane de ekle(command1)-çikar(command2) butonu.

Simdi de ListView nesnemize kolonlarimizi ekleyelim.

Olusturdugumuz nesneye sag-tik yapip properties penceresini açalim.

Index: Her olusturdugumuz kolon bir indeger(sayisal) degiskene atanir.Kolonlar üzerinde degisiklik yapmak için bu index numaralarini kullaniriz.

Text: Kolonumuzun metnidir.

Width: Genislik.Girilen metnin uzunluguna göre genisligini de ayarlayabiliriz.Bunu çalisma (Runtime)  esnasinda da ayarlanabilir.

Key: Kolonlar üzerinde degisiklik yaparken index’i kullanmak istemiyorsak bu anahtari kullanabiliriz.

Insert Column: Yeni bir kolon olusturur.

Remove Column: Kolonu siler.

Basta da dedigim gibi 4 tane kolon olusturacagiz.Bunlar sirayla; Üye Adi, Konu Sayisi, Mesaj Sayisi, Döküman Sayisi

Üstteki resimde ’Kolon Basligi’ yazan yere sirasiyla belirttigim kolon adlarini girip  Insert Column butonuyla olusturun.

Simdi projemizi önizlemek için çalistiralim ama önce properties menüsünden birkaç ayar yapalim.

[+] Ekledigimiz listview nesnesinin properties penceresinden View özelligini 3-lvwReport yapalim.Aksi taktirde kolonlarimiz görünmez.

[+]  Ekledigimiz listview nesnesinin properties penceresinden GridLines özelligini True yapalim.Böylece kolonlarin hizasini görebilecegiz.

[+]  Ekledigimiz listview nesnesinin properties penceresinden FullRowSelect özelligini True yapalim.Böylece bir liste elemanini seçtigimiz zaman kolonlariyla birlikte seçilir.

Önizleme:

Kodlar:

>> Listeye Eleman Ekleme  <<

Private Sub Command1_Click()

lv.ListItems.Add 1, , Text1.Text
lv.ListItems.Item(1).SubItems(1) = Text2.Text
lv.ListItems.Item(1).SubItems(2) = Text3.Text
lv.ListItems.Item(1).SubItems(3) = Text4.Text

End Sub

Rahat anlasilsin diye ayni türden olan yerleri renklendirdim.

.ListItems.Add komutu ile listeye eleman ekleyecegiz.Bu komuttan sonraki 1 ise index belirtir.Bu listedeki sirasidir.Text1.Text de veridir.

Bir kere listeye eleman ekledikten sonra .Add komutu ile kolonlara eleman ekleyemeyiz.Ancak ekledigimiz elemanin indexini kullanarak kolonlara eleman ekleyebiliriz.

lv.ListItems.Item(1) burada listView nesnemizin listesindeki 1.index elemanini belirtiyoruz.

.SubItems(1) ile 2. kolona erisiyoruz.Eger  .SubItems(2) olsaydi 3. kolona erisirdik.bunun sebebi lv.ListItems.Add 1, , Text1.Text komutu ile 1. kolona elemani yerlestirmemizdir.

>> Listeden Eleman Çikarma  <<

Private Sub Command1_Click()

lv.ListItems.Remove lv.SelectedItem.Index

End Sub

HAZIRLAYAN: Cyber_Facia