Sorteerlijst: code

Zeer belangrijk: we hebben de lijst nu gedefinieerd als Sorted. Op die manier worden de gegevens gesorteerd op het ogenblik dat ze worden toegevoegd aan de lijst.
Voor het toevoegen van de tekst aan de lijst gaan we eerst na of het tekstvak niet leeg is.
If Not txtAdd.Text = "" Then lstList.AddItem txtAdd.Text
txtAdd.Text = ""
Als de gebruiker iets aan het intikken is om toe te voegen, kan hij niets verwijderen:
Private Sub txtAdd_GotFocus()
cmdDelete.Enabled = False
End Sub
Om te tonen welk item geselecteerd is:
Private Sub lstList_Click()
lblDisplay.Caption = "Geselecteerd: " & vbCrLf & lstList.List(lstList.ListIndex)
cmdDelete.Enabled = True
End Sub
Als we het geselecteerde willen verwijderen:
Private Sub cmdDelete_Click()
lstList.RemoveItem lstList.ListIndex
lblDisplay.Caption = ""
cmdDelete.Enabled = False
End Sub
Om alle items te tonen doorlopen we de hele lijst en voegen elk item toe aan een boodschap die we dan tonen:
Private Sub lblDisplay_Click()
Dim teller As Integer
Dim tekst As String
For teller = 0 To lstList.ListCount
tekst = tekst & lstList.List(teller) & vbCrLf
Next teller
MsgBox tekst
End Sub