Icono en subitem de ListView segun condicion

[Chema32]

Hola foro,

Tengo en mi aplicación un listview que lleno con una tabla de una base de datos access. Con lo que no me aclaro es a la hora de sustituir el resultado de cierto campo por un icono.

Es decir, si un compo es "si" pretendo que en su lugar aparezca un icono con una imagen de chequeado. Se recorrer el listview, se encontrar ese resultado, pero no se como colocar el icono.

Se admiten sugerencias, please.

Saludos y gracias.

[luciano]

Hola, Podés cambiar el icono haciendo referencia al index del item en cuestión que querés cambiar

Segun el tipo de vista que tengas ( Con icons chicos o grandes ( propiedad Icono y SmallIcon) )

' Para los chicos
ListView1.ListItems(ElIndice).SmallIcon = "La Clave o el index del icon en el imageList"


' Para los grandes
ListView1.ListItems(ElIndex).Icon = "La Clave o el index del icon"


saludos

[Chema32]

Con el código que me comentas cambia añade un icono al primer item.

El código que he escrito es el siguiente:

For i = 1 To listClientes.ListItems.Count
For X = 1 To listClientes.ListItems(i).ListSubItems.Count
If listClientes.ListItems(i).ListSubItems(X).Text = "con_iva" Then
listClientes.ListItems(i).ListSubItems(X).Text = ""
'listClientes.SelectedItem.ListSubItems(X).ReportI con = 1
End If
Next X
Next i

Y consigo que tan sólo añada un icono a la primera fila que cumple la condición, pero nada más.

Saludos.

Saludos.

[boluart]

Si tu código es:

For i = 1 To listClientes.ListItems.Count
For X = 1 To listClientes.ListItems(i).ListSubItems.Count
If listClientes.ListItems(i).ListSubItems(X).Text = "con_iva" Then
listClientes.ListItems(i).ListSubItems(X).Text = ""
'listClientes.SelectedItem.ListSubItems(X).ReportI con = 1
End If
Next X
Next i

y quieres que recorra por todas las filas entonces tendria que ser asi:

For i = 1 To listClientes.ListItems.Count
For X = 1 To listClientes.ListItems(i).ListSubItems.Count
If listClientes.ListItems(i).ListSubItems(X).Text = "con_iva" Then
listClientes.ListItems(i).ListSubItems(X).Text = ""
listClientes.ListItems(i).ListSubItems(X).ReportIcon = 1
End If
Next X
Next i


ya que lo que hace tu código es solamente cambiar el icono al item seleccionado y no a todos

[Chema32]

Gracias, ahora no puedo probarlo pero creo que llevas toda la razón. Simplemente cambiaba el item que estaba seleccionado.

Saludos.

[luciano]

Código:

Con el código que me comentas cambia añade un icono al primer item.

No.

Donde dice elIndice , es el valor del item para cambiar la imagen de icono, da lo msimo si lo hacés en un bucle o directo, es depende lo que quieras hacer.

Te cambia el primero, por que te toma "ElIndice como variable" .. y como NO la declaraste vale 0 ( el primer elemento) . se supone que lo puse para que te des cuenta

Si utilizaras Option Explicit no te hubiese ocurrido esto último

No necesitás usar el SelectedItem, por que la comprobacion del item a modificar, la hacés en el bucle, por lo tanto podés utilizar la misma variable del for Next para hacer la referencia al elemento a modificar

saludos

[Chema32]

Iniciado por luciano

Código:

Con el código que me comentas cambia añade un icono al primer item.

No.

Donde dice elIndice , es el valor del item para cambiar la imagen de icono, da lo msimo si lo hacés en un bucle o directo, es depende lo que quieras hacer.

Te cambia el primero, por que te toma "ElIndice como variable" .. y como NO la declaraste vale 0 ( el primer elemento) . se supone que lo puse para que te des cuenta

Si utilizaras Option Explicit no te hubiese ocurrido esto último

No necesitás usar el SelectedItem, por que la comprobacion del item a modificar, la hacés en el bucle, por lo tanto podés utilizar la misma variable del for Next para hacer la referencia al elemento a modificar

saludos

Hola, obviamente sustituí "ElIndice" por la variable en cuestión (X), que en el bucle señala la celda.

Respecto al SeletedItem llevas toda la razón. Torpe que estaba uno.

Saludos,