imagenes en un ListBox

[Hitiel Hernández]

Buenas noches amigos foxeros.

Como les venía diciendo. Ya tengo filtrados los cursos de determinados estudiantes en 

un ListBox. Ahora necesito diferenciar los cursos a los que ya se les ingresó una calificación.

Por ejemplo: Matemática, si ya se le ingresó una calificación debería aparecerle un ícono que

nos de la idea que ya fué ingresado.

Todos los cursos a los que no se les ha ingresado calificación deberían aparecer con otro 

tipo de imagen. Para el efecto manejaré solo dos tipos de imagenes por cada registro.

Alguien me puede ayudar?

les estaré muy agradecido

--
Sabiduría ante todo; adquiere sabiduría

[Walter R. Ojeda Valiente]

Hola Hitiel

Si lo que quieres es ponerles iconos a todas las filas de un ListBox, dependiendo de una condición, entonces puedes usar el siguiente código:

Local lnItem

WITH ThisForm.ListBox1
    FOR lnItem = 1 To .ListCount
        if MAT_CALIFICACION = .T.     && Si se ingresó la calificación de esta materia
              .Picture[lnItem] = "C:\IMÁGENES\SI.BMP"
        else
             .Picture[lnItem] = "C:\IMÁGENES\NO.BMP"
    ENDFOR
ENDWITH

Saludos.

Walter.

---

Date: Mon, 21 Nov 2011 21:07:13 -0600
Subject: [vfp] imagenes en un ListBox
From: hiti...@gmail.com
To: publice...@googlegroups.com

[Walter R. Ojeda Valiente]

Me faltó un ENDIF, corrijo el código aunque creo que igual se entendió:

WITH ThisForm.ListBox1
    FOR lnItem = 1 To .ListCount

        IF MAT_CALIFICACION = .T.     && Si se ingresó la calificación de esta materia

              .Picture[lnItem] = "C:\IMÁGENES\SI.BMP"

        ELSE

             .Picture[lnItem] = "C:\IMÁGENES\NO.BMP"

        ENDIF
    ENDFOR
ENDWITH

Saludos.

Walter.

---

From: wr...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] imagenes en un ListBox
Date: Tue, 22 Nov 2011 04:13:47 +0000

[Hitiel Hernández]

Gracias Walter. 

Lo voy a poner en práctica.

[Hitiel Hernández]

Walter, fijate que ya probé el código que me enviaste.

Logré hacer que me funcione, pero, me pone la misma imagen para todos los items,

de acuerdo a la condición especificada.

Te adjunto el código que usé:

LOCAL lnItem

WITH ThisForm.comasigna       &&&&& este es el nombre del ListBox

    FOR lnItem = 1 To .ListCount

        IF cursos.oficial = 1  && Si se ingresó la calificación de esta materia

              .Picture[lnItem] = "C:\datacollege\graficos\iconos\btn_cancel.BMP" 

        ELSE

             .Picture[lnItem] = "C:\datacollege\graficos\iconos\btn_ok.BMP"

        ENDIF

    ENDFOR

ENDWITH

me gustaría que me pusiera una imagen distinta en cada item de acuerdo a la condición

[Luis Maria Guayan]

Mira este artículo de PortalFox que seguramente te ayudará

-- Imágenes en controles ListBox y ComboBox --
http://www.portalfox.com/article.php?sid=2155

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________