Information générale
Catégorie:
Gestionnaire d'écran & Écrans
>I am using a listbox and was wondering if I can add an image in a specific column?
>
>Or, am I using the wrong control?
Un petit exemple tiré de la boite à outils
Michel
FOR i=1 TO nClientN
IF((gcListeClients(i,1)<>'.') and (gcListeClients(i,1)<>'..'))
gcTmp = (gcTransit)+'\'+gcListeClients(i,1)+'\CXRR00N.DBF'
gcNom = SUBSTR(gcListeClients(i,1),2)
IF FILE(gcTmp)
USE (gcTmp)
LOCATE FOR TRANSIT = (gcNom)
IF((NO_GR_RAP = "01") OR (NO_GR_RAP = "04") OR;
(NO_GR_RAP = "07") OR (NO_GR_RAP = "13"))
ThisForm.Listederoulante1.AddItem(' Transit '+ SUBSTR(gcListeClients(i,1),2))
ThisForm.Listederoulante1.Picture(n)=;
(gcPathExec)+'\bitmaps\inspec.bmp'
n = n + 1
ELSE IF(NO_GR_RAP = "11")
ThisForm.Listederoulante1.AddItem(' Transit '+ SUBSTR(gcListeClients(i,1),2))
ThisForm.Listederoulante1.Picture(n)=;
(gcPathExec)+'\bitmaps\verif.bmp'
n = n + 1
ENDIF
USE
ENDIF
ENDIF
ENDFOR
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement