ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Afficher un icon dans une listBox avec une Array comme rowsource   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

ven. 29 décembre 2017, 15h30

MILCENT Bernhart
Belgique Belgique

atoutfox.public.association

Afficher un icon dans une listBox avec une Array comme rowsource

Bonjour Tout le monde,

Est - il possble d'avoir une image dans la listbox lorsqu'on utilise une array comme rowsource ?

Ci joint le code qui ne fonctionne pas.

PUBLIC ARRAY  ts [1,2]
m.lcloture =  ( THISFORM.optChoixActionCloture.VALUE = 1 )
m.nvMois  = MONTHTHISFORM.ddebut )
m.nvAnnee = YEARTHISFORM.ddebut )


*-- Choix des employés pour la (dé)cloture d' un Horaire.
SELECT TELEPH.Cnomteleph , Horaire.iemployeeid ;
  FROM ( AMLINE!Horaire INNER JOIN AMLINE!EMPLOYEE ON ;
  Horaire.iemployeeid = EMPLOYEE.iid ) INNER JOIN AMLINE!TELEPH ON ;
  EMPLOYEE.itelephoneid = TELEPH.iid ;
  WHERE  MONTH( Horaire.ddate ) = m.nvMois AND ;
  YEAR( Horaire.ddate ) = m.nvAnnee AND ;
  Horaire.ltype = .F. AND ;
  Horaire.liscloture =  IIF( m.lcloture , .F. , .T. );
  GROUP BY TELEPH.Cnomteleph , Horaire.iemployeeid ;
  INTO  ARRAY taFullList


m.nTotRec = _TALLY

* container contenant 2 listBox
loMover = THIS.movercontainer1
IF m.nTotRec > 0
  loMover.cFullListRowSource  = "taFullList"
  loMover.cSelectedListRowSource  = "TS"
  loMover.INIT()
ENDIF

FOR c= 1 TO m.nTotRec
  loMover.lstFullList.PICTURE( m.c ) = "emply.bmp"
ENDFOR


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018750
18 934 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0