Listviewinizin resim ve icon gostermesini istiyormusunuz.
2 tane imagelist ekledim.İcine icon resimlerini insert ettim.(Properties-Costum den) ve aşağıdaki kodları initialize olayına girdim.
Dosya aşağıdaki, linktedir.
Makroların calışabilmesi icin guvenlik seviyesini en duşuk olarak ayarlamılısınız.
http://s1.dosya.tc/luA0vI/Listviewde...on_59.rar.html
[IMG]http://img842.**************/img842/1305/listw.png[/IMG]
Kod:
Private Sub UserForm_Initialize() ListView1.View = lvwReport 'imagelist'te key 'ler kucuk buyuk harfe duyarlıdır. 'ListView1.Icons = ImageList1 '(ListView1 Simge gorunumunde iken liste elemanlarının ikon kaynağı belirtiliyor) ListView1.SmallIcons = ImageList1 '(ListView1 Simge gorunumunde 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("EVREN").Key ListView1.ListItems(1).ListSubItems.Add , , "OSMAN", Me.ImageList1.ListImages.Item("OSMAN").Key ListView1.ListItems.Add , , "HASAN", , Me.ImageList1.ListImages.Item("HASAN").Key ListView1.ListItems(2).ListSubItems.Add , , "RECEP", Me.ImageList1.ListImages.Item("RECEP").Key ListView1.ListItems.Add , , "KEMAL", , Me.ImageList1.ListImages.Item("KEMAL").Key ListView1.ListItems(3).ListSubItems.Add , , "ŞABAN", Me.ImageList1.ListImages.Item("ŞABAN").Key ListView1.Picture = Me.ImageList2.ListImages.Item("Mavi").Picture End Sub
__________________