ListBox control multi selection

[DirectuX]

Ciao,

a listbox can have multi selection,
the gettext command only return the first selected line. How do you get the whole list of the selected items ?

[Petr Schreiber]

Hi DirectuX,

it is solution mostly by Win32API, but seems to work:

function GetSelectedListboxItems(hDlg as dword, hCtl as long, byref out_result() as string) as long
  long selectionCount
  long hList
  
  control handle hDlg, hCtl to hList
  selectionCount = SendMessage(hList, %LB_GETSELCOUNT, 0, 0)
  
  if selectionCount > 0 then
    long itemIndexes(selectionCount)
    SendMessage(hList, %LB_GETSELITEMS, selectionCount, varptr(itemIndexes(1)))
     
    ' Fit the output array to selection count
    redim out_result(selectionCount)
     
    ' Limited to 512 characters, feel free to adjust
    dim singleTextItem as asciiz * 512 
    
    ' Extract all items from ListBox
    for i as long = 1 to selectionCount
      SendMessage(hList, %LB_GETTEXT, itemIndexes(i), varptr(singleTextItem))


      out_result(i) = singleTextItem
    next
    
    return selectionCount
  end if
end function

You can use it like:

string items()
long selectedCount = GetSelectedListboxItems(hDlg, %myListBox, items)
if selectedCount then msgbox hDlg, join$(items, ",")

Petr

[DirectuX]

I didn't get used to sendmessage, now I better understand its meaning.
Before your sample, I thought there must have been a single command rather than a succession.

That was instructive to me, thanks Petr !