ListBox

Tags:    visual-basic

hej

hvordan kan man lave en søgefunktion/Filter
noget i stil med den der er i Winamp (J)

så vis jeg har en textbox og en listbox.
og jeg så skrive "The" i textboxen så viser den kun alt der der indeholder noget med "the" i listboxen

håber der er nogen der har nogen ide til hvordan man lige kan lave det :)


kenneth



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
hej

hvordan kan man lave en søgefunktion/Filter
noget i stil med den der er i Winamp (J)

så vis jeg har en textbox og en listbox.
og jeg så skrive "The" i textboxen så viser den kun alt der der indeholder noget med "the" i listboxen

håber der er nogen der har nogen ide til hvordan man lige kan lave det :)


kenneth


Jep, når bruger indtaster noget så tjekker du om strenge i listbokseksister hvis ikke så fjeren du den bare.

eks.
<pre>
Dim Xtel As Integer

Private Sub Form_Load()
For ytel = 1 To 2
For Xtel = 1 To 26
List1.AddItem "T" & Chr$(64 + Xtel) & Chr$(65 + Xtel)
Next Xtel
Next ytel
End Sub

Private Sub Text1_Change()
For Xtel = (List1.ListCount - 1) To 0 Step -1
List1.ListIndex = Xtel
a = InStr(1, List1.Text, Text1.Text)
If a = 0 Then
List1.RemoveItem Xtel
End If
Next
End Sub
</pre>

HVor form load genre en tilfældig liste, til at teste med :)

***EDIT***

fik lige lavet en lidt bedere version :)

<pre>
Dim Xtel As Integer

Private Sub Form_Load()
Call Lav
End Sub

Function Lav()
List1.Clear
For ytel = 1 To 2
For Xtel = 1 To 26
List1.AddItem "T" & Chr$(64 + Xtel) & Chr$(65 + Xtel)
Next Xtel
Next ytel
End Function


Private Sub Text1_Change()
Call Lav
For Xtel = (List1.ListCount - 1) To 0 Step -1
List1.ListIndex = Xtel
a = InStr(1, List1.Text, Text1.Text)
If a = 0 Then
List1.RemoveItem Xtel
End If
Next
End Sub
</pre>

mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

[Redigeret d. 23/03-05 16:42:02 af Thomas Christensen]



Private Sub Text1_Change()
Call ListBackup
For Xtel = (List1.ListCount - 1) To 0 Step -1
List1.ListIndex = Xtel
a = InStr(1, List1.Text, Text1.Text)
If a = 0 Then
List1.RemoveItem Xtel
End If
Next
End Sub


Tak :D



t