Radim na jednom programcicu u kome na jednom mestu treba odabrati stavku iz listboxa. Posto tih stavki ima bas mnogo [oko 800-900] resio sam da napravim malu formu koja bi sluzila za pretragu a sastoji se od textboxa u kom bi se kucalo i listboxa gde bi se rezultati filtrirali prema textu iz textboxa. Znam da sam zakomplikovao ali to bi trebalo da izgleda kao pretraga u Winampu [kad pritisnes F3].
To sam pokusao da postignem ovim kodom dole, ali on ne da ne radi, nego pravi neku pretragu od koje da Bog sacuva.:-[
Ako ima neko da ga ne mrzi neka vidi ovo i nek mi kaze gde sam pogresio.
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
'deklarisem promenljive
Dim s As String = Me.TextBox1.Text
Dim p As Object
Dim i, j As Integer
Dim b() As Integer = New Integer(j) {}
'prolazim kroz elemente listboxa
For Each p In Me.ListBox1.Items
'proveravam da li u njima postoji ono sto je u textbox-u
If InStr(CStr(p), s.ToLower) = 0 Then
'upisujem njihove indexe u niz
b(j) = i
j = j + 1
ReDim b(j)
End If
i = i + 1
Next
'ovde brisem neodgovarajuce clanove na osnovu njihovih indexa
For Each i In b
Me.ListBox1.Items.Remove(Me.ListBox1.Items.Item(i))
Next
End Sub
End Class
Svaka pomoc je dobrodosla, unapred hvala.
Edwin VanCleef <Defias Kingpin>