Hallo ich habe ein wenig Code geschrieben, mit dem ich eine Listbox ihre Items suche und anschließend markiere.
Dazu gibt es noch eine "Regelung", die die LIstbox um ein paar Items scrollt, sobald ein Item gefunden wird.
Meine Frage ist nun, dass der Code komischerweise bei bestimmen Woertern perfekt funktioniert, aber bei anderen Wörtern aus der Listbox passiert einfach nichts, es wird nichts gefunden oder angezeigt. Vielleicht weiß Jemand, warum.
Dazu gibt es noch eine "Regelung", die die LIstbox um ein paar Items scrollt, sobald ein Item gefunden wird.
Meine Frage ist nun, dass der Code komischerweise bei bestimmen Woertern perfekt funktioniert, aber bei anderen Wörtern aus der Listbox passiert einfach nichts, es wird nichts gefunden oder angezeigt. Vielleicht weiß Jemand, warum.
VB.NET-Quellcode
- Dim boxsucht As String = InputBox("Bitte geben Sie den Begriff ein: ", "Wort suchen")
- Dim listboxzahl As Integer = LB_Themen.Items.Count - 1 - LB_Themen.SelectedIndex
- For x As Integer = 0 To LB_Themen.Items.Count - 1
- If LB_Themen.Items(x).ToString.Contains(boxsucht.ToLower) Then
- LB_Themen.SelectedIndex = x
- Select Case LB_Themen.SelectedIndex
- Case Is >= listboxzahl
- With LB_Themen
- .TopIndex -= 18
- End With
- Case Is <= listboxzahl
- With LB_Themen
- .TopIndex += 16
- End With
- End Select
- LB_Themen.Focus()
- LB_Themen.SelectedIndex = x
- Return
- End If