INSERIR IMAGEM EM LISVIEW PELO CODIGO

GERARDA 15/09/2010 11:06:25
#353023 Resposta escolhida

neste exemplo vc tem que por um imagelist,e os icones tem que estar na pasta da aplicação

Private Sub Form_Load()
Dim imgX As ListImage
[ô] Agrega imágenes a la colección ListImages.
Set imgX = ImageList1. _
ListImages.Add(, [Ô]rocket[Ô], LoadPicture(App.Path & [Ô]ocket.ico[Ô]))
Set imgX = ImageList1. _
ListImages.Add(, [Ô]plane[Ô], LoadPicture(App.Path & [Ô]\plane.ico[Ô]))
Set imgX = ImageList1. _
ListImages.Add(, [Ô]car[Ô], LoadPicture(App.Path & [Ô]\cars.ico[Ô]))

ListView1.Icons = ImageList1 [ô] Establece la propiedad Icons.

[ô] Agrega objetos Item al control ListView.
Dim itmX As ListItem
Set itmX = ListView1.ListItems.Add()
[ô] Referencia por índice.
itmX.Icon = 1
itmX.Text = [Ô]Cohete[Ô] [ô] Establece la cadena de texto.
Set itmX = ListView1.ListItems.Add()
[ô] Referencia por clave([Ô]avión[Ô]).
itmX.Icon = [Ô]plane[Ô]
itmX.Text = [Ô]Avión[Ô] [ô] Establece la cadena de texto.
Set itmX = ListView1.ListItems.Add()
itmX.Icon = [Ô]car[Ô]
itmX.Text = [Ô]Auto[Ô] [ô] Establece la cadena de texto.
End Sub

LUCIANORW 15/09/2010 16:10:36
#353043

Valeu meu amigo!!!
Luciano