Her har du en kode der har søgefeltet (txtSearch) og reagerer når man trykker Enter(13). Den tjekker først om du ikke allerede har søgt på dette søgeord, hvis du nu får en rigtig stor liste musik er det pænt neder at hvis man kommer til at trykke to gange så skal vente på den!
Så går vi alle numrene igennem på listen (lstSongs) og tjekker om sangene begynder med de indtastede søgeord. Hvis de gør bliver de tilføjet på listen (lstSearch).
Private Sub txtSearch_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not txtSearch.Text = lstSearch.Tag Then
lstSearch.Clear
lstSearch.Tag = txtSearch.Text
Dim iBuffer As Integer
For iBuffer = 0 To lstSongs.ListCount
If Left$(Trim$(LCase(lstSongs.List(iBuffer))), Len(txtSearch.Text)) = Trim$(LCase(txtSearch.Text)) Then
lstSearch.AddItem lstSongs.List(iBuffer)
End If
Next iBuffer
End If
End If
End Sub
Du kan teste det ved at sætte objekterne op som jeg fortalte dig og så bare tilføje en masse lort til listen (lstSongs).
// Great programs often follow great brains!