Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Objekte / ListBox / GetSel

Selektierte Elemente bestimmen

Mit folgender Funktion können schnell alle Elemente bestimmt werden, die in einer ListBox mit Multiselect=True gerade markiert sind. Ist gar kein Element selektiert, so gibt die Funktion Empty zurück.
Function ListBoxSel(lst As ListBox) As Variant
  Dim i As Long
  Dim n As Long
  Dim v As Variant
  
  With lst
    ReDim v(1 To .ListCount)
    For i = 0 To .ListCount - 1
      If .Selected(i) Then
        n = n + 1
        v(n) = i
      End If
    Next i
  End With

  If n Then
    ReDim Preserve v(1 To n)
    ListBoxSel = v
  End If
End Function

© Jost Schwider, 19.08.2000-19.08.2000 - http://vb-tec.de/getsel.htm