Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to add image in listbox?
Message
From
11/04/1997 12:09:35
 
 
To
11/04/1997 10:28:41
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00027970
Message ID:
00027987
Views:
28
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform