Nybörjarfel: .List()

[Vide]

Hejsan,

Har en liten kodsnutt som genererar ett fel som jag inte riktigt förstår varför:

Private Sub SelectUsers_Click()
  Dim strText As String
  Dim i As Integer

  For i = 0 To Users.ListCount
    If Users.List(i).Selected Then
      strText = strText & Users.List(i) & vbCrLf
    End If
  Next

  UsersLabel.Caption = strText
End Sub

Felmeddelande: "Invalid qualifyer"

Mvh, Vide

[Jon]

Nu har jag inte VB installerat för tillfället men nånstans i bakhuvudet dyker ordet ListItem upp. Finns den egenskapen? I så fall låter det bättre... Testa!

red: Hmm... bakhuvudet känns inte helt pålitligt idag

[niko]

  Dim strText As String
  Dim i As Integer

  For i = 0 To Users.ListCount - 1
    If Users.Selected(i) Then
      strText = strText & Users.List(i) & vbCrLf
    End If
  Next

  UsersLabel.Caption = strText

Om vi förutsätter att Users är en mutiselect listbox ..

[Vide]

Tackar så mycket, nu börjar det lossna i hjärngodset...