Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to add image in listbox?
Message
De
11/04/1997 12:09:35
 
 
À
11/04/1997 10:28:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00027970
Message ID:
00027987
Vues:
30
>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
Fil
Voir

Click here to load this message in the networking platform