| Pregunta: | 65236 - BUSCAR EN LISTBOX |
| Autor: | Alejandro Diaz Torres |
| Hola, tengo unos códigos que me sirven para buscar items de un listbox, mientras lo voy escribiendo en un textbox y que los items que tengan las palabras escritas en el textbox salgan en otro list. El codigo es este:
ListBox2.Items.Clear() Dim listLength As Integer = (ListBox1.Items.Count - 1) Dim i As Integer Dim listString As String For i = 0 To listLength listString = ListBox1.Items.Item(i) If InStrRev(listString.ToLower, TextBox4.Text.ToLower) Then ListBox2.Items.Add(listString) End If Next listString = Nothing El problema es que si tengo una lista que es: España, América, y Inglaterra, y pongo la letra e en el textbox, tendrían que salir los tres, pero me salen solo España e Inglaterra. El problema es que no me distingue los acentos. Hay alguna forma para que aunque escriba sin acentos lo encuentre? Gracias | |
| Respuesta: | abel montalvo |
| Creo es mas complejo de lo que parece igual espero y te ayude un saludo ListBox2.Items.Clear() If TextBox1.Text.Trim <> "" Then For Each elemento In ListBox1.Items Dim palabra As String = elemento.ToString.ToUpper Dim palablra2 As String = "" For Each letra In palabra Dim l As Char = letra If letra = "Á" Then l = "A" ElseIf letra = "É" Then l = "E" ElseIf letra = "Í" Then l = "I" ElseIf letra = "Ó" Then l = "O" ElseIf letra = "Ú" Then l = "U" End If palablra2 += l Next If palablra2.Contains(TextBox1.Text.ToUpper) Then ListBox2.Items.Add(elemento.ToString) End If Next End If | |