Mer om ListBox och ComboBox

Varje rad i en lista har ett Index som är ett heltal. På så vis kan man söka igenom listan efter något man önskar ha tag på eller ta reda på hur många rader som listan innehåller. List1.ListIndex eller Combo1.ListIndex är de egenskaper som räknas upp för varje ny rad. Man kan alltså låta programmet skriva ut i en Label den 23:e raden i listan, genom att använda koden:

Private Sub Command1_Click() Label1.Caption = List1.List(23) End Sub

eller tvärt om peka på en text i listan och låta koden skriva ut vilket ListIndex den har:

Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub

Med egenskaperna List1.ListCount eller Combo1.ListCount anges hur många rader det finns i listan. Med ungefär samma kod som ovan får vi värdet på ListCount:

Private Sub Command1_Click() Label1.Caption = List1.ListCount End Sub

Titta på följande kod:

Private Sub Command1_Click() Dim n As Long, i As Long n = List1.ListCount

For i = 0 To n If List1.List(i) Like Text1.Text Then Combo1.AddItem List1.List(i) List1.RemoveItem i End If Next

End Sub

Här har vi först ListBox1. För varje textrad som vi lägger in ökas egenskapen ListCount med ett. ListCount anger alltså hur många rader som finns i listan. I slingan For - Next börjar räkningen på noll och fortsätter till det värde som ListCount för tillfället har. I en TextBox kan vi skriva ett ord som vi söker i listan. För varje värde på (i) jämförs sedan texten i List1 med texten i Text1. Det görs med koden If List1.List(i) Like Text1.Text. Observera att man inte sätter likhetstecken eftersom det nu inte handlar om numeriska värden utan om bokstäver. Om dessa är lika överförs texten med hjälp av koden Combo1.AddItem List1.List(i) till en ComboBox, alltså på samma sätt som när man lägger till text i en ListBox. När man tar bort en text gör man det med koden List1.RemoveItem i där i alltså är värdet på det Index där texten ligger. Om man inte vill söka efter en text kan man välja i en lista med muspekaren, så att texten blir markerad, och trycka på en knapp. Man kan också lägga koden i List1_Click. Dim i As Integer Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Combo1.AddItem List1.List(i) End If Next i End Sub

Sätter man ListBoxens egenskap MultiSelect till Extended kan man välja fler rader genom att trycka ned Skift- eller Ctrl-tangenten, precis som i Utforskaren.