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 <[email protected]> >> >> >>> 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 [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
