Thanks all for your help. I couldn't find the selected property in help files. Now everything is ok. Thanks again.
On Tue, Sep 8, 2009 at 12:18 PM, Werner<wd...@netfront.net> wrote: > Rolf Schmidt wrote: >> Hallo Dimitris >> >> deine Mail ist sehr interessant, doch leider kann ich sie nicht lesen - >> komischer englischer Dialekt. >> >> Gruß >> Rolf >> >> PS: If you like to answer in a different language then english, the language >> of this list, do it as PM. >> >> >>> An katalava kala thes na vlepeis oles tis epiloges pou exeis kanei >>> sto listbox se multiple mode, etsi? >>> >>> Exo ftiaxei mia synartisi pou kanei akrivos afto to pragma. >>> >>> '-------------------------------------------------------------------------- >>> ------------------------------ PUBLIC FUNCTION multipleSelections(targetLB >>> AS ListBox) AS String >>> DIM targetCount AS Integer >>> DIM foundSelected AS Integer >>> DIM Res AS String >>> >>> targetCount = 0 >>> foundSelected = 0 >>> DO WHILE targetCount < targetLB.Count >>> IF targetLB[targetCount].selected = TRUE THEN >>> Res &= targetLB[targetCount].Text & "|" >>> INC foundSelected >>> ENDIF >>> INC targetCount >>> LOOP >>> >>> IF foundSelected = 0 THEN >>> RETURN "Nothing found" >>> ELSE >>> RETURN Left(Res, Len(Res) - 1) >>> ENDIF >>> >>> END >>> '-------------------------------------------------------------------------- >>> ------------------------------ >>> >>> gia na tin xrisimopoihseis tin kaleis me to parakato styl >>> >>> tmpStr = multipleSelections(myListbox) >>> >>> kai tha sou vgalei san apotelesma to exeis >>> >>> "Item1|Item3|item5" >>> >>> Pou einai ta onomata twn stoixeiwn pou dialexes sto listbox. >>> >>> an xreiazesai to index tou kathe stoixeiou prepei na kaneis allages stin >>> synartisi. >>> >>> Elpizo na voithisa, kai oti allo xreiazetai pes mou. >>> >>> Regards, >>> Dimitris >>> >>> 2009/9/7 Demosthenes Koptsis <demosthen...@gmail.com> >>> >>> >>>> Hi to all, >>>> >>>> how can we get the selection of a multiple mode listbox? >>>> >>>> return an array of selected items or something? >>>> >>>> -- >>>> >>>> Γεια χαρα σε όλους!!! >>>> >>>> Regards, >>>> >>>> Demosthenes Koptsis >>>> >>>> > Another way to skin the cat: > > PUBLIC FUNCTION GetListBoxSelection(theBox AS ListBox) AS Collection > DIM selection AS NEW Collection[] > DIM i AS Integer > > FOR i = 0 TO theBox.Count - 1 > IF theBox[i].Selected THEN selection.Add(theBox[i].Text, i) > NEXT > RETURN selection > END > > ------------------------------------------------------------------------------ > Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day > trial. Simplify your report design, integration and deployment - and focus on > what you do best, core application coding. Discover what's new with > Crystal Reports now. http://p.sf.net/sfu/bobj-july > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > -- Γεια χαρα σε όλους!!! Regards, Demosthenes Koptsis ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user