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]