[Gambas-user] How to get listbox selection?

[Werner]

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 <demosthenesk at ...626...>
>>
>>     
>>> 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