Ayuda con Listbox y Textbox

28/11/2003 - 04:11 por msnews.microsoft.com | Informe spam
Que tal amigos, requiero de su valiosa ayuda
1.- Una lista de nombre en una listbox.
2.- Un textbox para introdujo el nombre

Quiero:
Que mientras se introduja los caracteres en el textbox, se vaya haciendo una
seleccion de la coincidencia en la listbox
Es lo que hace una combobox, con la propiedad MatchEntry=0, pero obvio no
puedo usar combobox, porke requiero que siempre esten desplegados los
nombres, pero necesito que no pierda el setfocus el textbox, sino que me
vaya dando la coincidencia en el listbox.
Me explique bien???.
Saludos y gracias de antemano.


_____________________________
Rodrigo Bustos
_____________________________
 

Leer las respuestas

#1 Héctor Miguel
28/11/2003 - 05:43 | Informe spam
Hola, Rodrigo !

1.- Una ... listbox.
2.- Un textbox para ... el nombre
... mientras ... caracteres en el textbox ... una seleccion de la coincidencia en la listbox
... no puedo usar combobox ... requiero que ... esten desplegados los nombres
... necesito que no pierda el setfocus el textbox ... que me vaya dando la coincidencia en el listbox.



podrias utilizar [p.e.] una macro 'auxiliar' para el evento '_Change' del textbox
[suponiendo que se llaman 'TextBox1' y 'ListBox1']
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
If Len(TextBox1) > 0 _
Then BuscarEnLista LCase(TextBox1) _
Else ListBox1.ListIndex = -1
End Sub
Private Sub BuscarEnLista(ByVal Buscado As String)
Dim Elem As Integer, Coincide As Integer
With ListBox1
For Elem = 0 To .ListCount - 1
If LCase(Left(.List(Elem), Len(Buscado))) = Buscado Then
Coincide = Elem + 1
Exit For
End If
Next
If Coincide > 0 Then .ListIndex = Coincide - 1 Else .ListIndex = -1
End With
End Sub

saludos,
Héctor.

Preguntas similares