[ Mare_Bogovadja @ 04.08.2004. 21:36 ] @
[VB.NET] 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. Code: 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. |