Listbox echtzeit Suchfunktion (per Textbox)

ratio44 · 27. November 2012, 13:29

hallo zusammen
ich versuche, eine suchfunktion für die listbox items einzurichten, aber kriege es einfach nicht hin....
ziel wäre es, dass ich in der textbox einen buchstaben schreibe, dann alle die items übrigbleiben, die mit dem buchstaben beginnen, dann den 2. buchstaben und so weiter, ein echtzeitupdate halt der listbox...
nehme mal an, dass man in dem verfahren alle items, die nict entsprechen, entfernt werden müssen, folglich müsste man sie auch wieder hinzufügen können, wenn ich einen buchstaben lösche...

Killerjo96 · 27. November 2012, 13:42

Naja du musst halt mit einer For-Next Schleife die Items durchgehen und in dieser Schleife prüfst du einfach, ob das Item den Text der Textbox enthält, wenn nicht löschst du das Item raus, wenn schon lässt du es drinne und fügst z.B. ein Schlüssel- "wort" dazu. Realisieren könntest du es z.B. mit Contains(). Und es gibt ein tolles TextBox Event, nennt sich, TextChanged, dadrinnen kannste das ganze ablaufen lassen

Ich guck mal ob ich selber so etwas realisieren kann.

Ist also nur eine Vermutung, das es so funktionieren könnte.

xtts02 · 27. November 2012, 13:44

Hänge die Daten an ein BindingSource und verwende die Filter-Eigenschaft des BindingSources im TextChanged-Event, um die Daten zu filtern.

ratio44 · 27. November 2012, 13:48

naja ich habs im textchanged probiert mit

For i As Integer = ListBox.Items.Count - 1 To 0 Step -1
If Not ListBox.Items(i).ToString.Contains(TextBox.Text) Then
ListBox.Items.RemoveAt(i)
End If
Next

aber das resultat ist, dass er den jeweils getippten buchstaben durforstet der verbleibenden items

Killerjo96 · 27. November 2012, 13:51

mach es besser so wie xtts02 beschrieben hat

ratio44 · 27. November 2012, 13:53

hab noch nie mit bindingsource gearbeitet, aber werde mich wies aussieht in die richtung mal schlau machen =) danke erstmal

Vatter · 27. November 2012, 14:29

Es gibt noch eine elegante Methode für Textboxen zur Autovervollständigung. Du kannst nämlich eine Liste übergeben (Textbox.Autocompletesource). Der Rest geht weitgehend automatischisch.
Hier mit Beispühl

Fiel Fergnügen

Vatter

P-Velo · 27. November 2012, 23:42

in den eigenschaften von der textbox autocomplet

Nikx · 28. November 2012, 00:15

Was hat denn das ganze mit Autocomplete zu tun?
Es kann zwar möglich sein, das es so verwendet werden soll (sehr unsauber!), kann
aber genausogut dafür gedacht sein einfach eine lange Liste zu durchsuchen?

Grüße

SpaceyX · 28. November 2012, 00:23

Huhu,

mein Tip:

VB.NET-Quellcode

Public Class Form1
Private _listItem As New List(Of String)
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim result As New List(Of String)
result.AddRange(From i As String In _listItem Select i Where i.StartsWith(Me.TextBox1.Text))
If result.Count > 0 Then
Me.ListBox1.Items.Clear()
Me.ListBox1.Items.AddRange(result.ToArray())
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
_listItem.AddRange(From i As Object In Me.ListBox1.Items Select CStr(i.ToString()))
End Sub
End Class

EDIT: Natürlich daran denken, wenn Du zur Laufzeit ein Item der ListBox hinzufügst, bzw. entfernst, die Liste entsprechend zu synchronisieren.

Nikx · 28. November 2012, 00:28

Büdde:

VB.NET-Quellcode

Option Strict On
Public Class ListBoxSearch
Private itms As New List(Of String)
Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
For Each item As String In itms
If Not lstBox.Items.Contains(item) Then
lstBox.Items.Add(item)
End If
Next
For Each s As String In itms
If Not s.StartsWith(txtSearch.Text) Then
lstBox.Items.Remove(s)
End If
Next
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
lstBox.Items.Add(txtAdd.Text)
itms.Add(txtAdd.Text)
txtAdd.Text = Nothing
End Sub
End Class

Form enthält:
2 TextBoxen = txtSearch und txtAdd
1 Button = btnAdd
1 ListBox = lstBox

Namen erklären sich selbst.

Grüße

xtts02 · 28. November 2012, 01:49

Ein einfaches Beispiel mit DataBinding. Ausführlichere Beispiele siehe die Tutorials von @ErfinderDesRades (Stichwort: Typisiertes DataSet)

Spoiler anzeigen

VB.NET-Quellcode

Public Class MainForm
Private _bindingsource As New BindingSource
Private _datatable As New DataTable
Private Const COLNAME As String = "Content"
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Spalte(n) erstellen
With _datatable.Columns
.Clear()
.Add(COLNAME, GetType(String))
End With
' Datenquelle für BindingSource setzen
_bindingsource.DataSource = _datatable
' BindingSource an ListBox anhängen
With Me.TestListBox
.DataSource = _bindingsource
.DisplayMember = COLNAME ' -> Spaltenname
End With
' Testdaten
Dim personNames = {"Maier", "Meyer", "Müller", "Schmidt", "Schmitt"}
For Each personName In personNames
Me.AddContent(personName)
Next
End Sub
' Filtern
Private Sub FilterTextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles FilterTextBox.TextChanged
_bindingsource.Filter = String.Format("[{0}] LIKE '{1}%'", COLNAME, DirectCast(sender, TextBox).Text)
End Sub
' Holfsfunktion -> Datensatz hinzufügen
Private Sub AddContent(content As String)
Dim row = _datatable.NewRow
row(0) = content
_datatable.Rows.Add(row)
End Sub
End Class

ratio44 · 28. November 2012, 21:16

... und die noch einfachere lösung ist die autovervollständigung mit einer combobox, die auf die items zugreift - muss man nicht mal mehr coden, ist bereits in den combobox einstellungen auswählbar und erfüllt erstmal seinen zweck

Listbox echtzeit Suchfunktion (per Textbox)

Listbox echtzeit Suchfunktion (per Textbox)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben