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

• Derniers messages
• Informations

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

ven. 29 décembre 2017, 15h30

MILCENT Bernhart
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  = MONTH( THISFORM.ddebut )
m.nvAnnee = YEAR( THISFORM.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