Listviewiniz resim & icon göstersin

[Orion1]

Merhaba arkadaşlar.
Listviewin arka palnına imagelistten bir resmi koyabilişrisiniz.
sütunlarada icon koyabilirsiniz.
Ben imageliste resimleri aldım ve oradanda listview koydum.
2 tane imagelist ekledim.
Dosya ektedir.

Kod: [Seç]

Private Sub UserForm_Initialize()
ListView1.View = lvwReport
'ListView1.Icons = ImageList1 '(ListView1 Simge görünümünde iken liste elemanlarının ikon kaynağı belirtiliyor)
ListView1.SmallIcons = ImageList1 '(ListView1 Simge görünümünde değilken liste elemanlarının ikon kaynağı belirtiliyor)
ListView1.FullRowSelect = True
ListView1.ColumnHeaders.Add , , "BAŞLIK1", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "BAŞLIK2", ListView1.Width / 2 - 3
ListView1.ListItems.Add , , "EVREN", , Me.ImageList1.ListImages.Item(1).Index
ListView1.ListItems(1).ListSubItems.Add , , "OSMAN", Me.ImageList1.ListImages.Item(2).Index
ListView1.ListItems.Add , , "HASAN", , Me.ImageList1.ListImages.Item(3).Index
ListView1.ListItems(2).ListSubItems.Add , , "RECEP", Me.ImageList1.ListImages.Item(4).Index
ListView1.ListItems.Add , , "KEMAL", , Me.ImageList1.ListImages.Item(5).Index
ListView1.ListItems(3).ListSubItems.Add , , "ŞABAN", Me.ImageList1.ListImages.Item(6).Index
ListView1.Picture = Me.ImageList2.ListImages.Item(1).Picture
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Elinize sağlık Evren Bey.    

[Orion1]

Elinize sağlık Evren Bey.    

Bende teşekür ederim,Bülent bey.