Autocompletar

Hola Bernardo
Yo utilizo el siguiente codigo para autocompletar el texto de los combos,
con algunas pequeñas modificaciones podrias adaptarlo a un TextBox y un List


Private Sub ComboAutoCompleteKeyUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs)
Dim CB As ComboBox = DirectCast(sender, ComboBox)
Dim inicio As Integer = CB.Text.Length
Dim indice As Integer
Dim t As String = e.KeyCode.ToString
If t.Length = 1 AndAlso (IsNumeric(t) OrElse (t >= "A" AndAlso t <=
"Z") _
OrElse InStr(" /*-+()!#$%&=?¡¿~{}[],.-_<>@|°¬",
t) > 0) Then
Dim p As Integer = CB.SelectionStart
indice = CB.FindString(CB.Text.Substring(0, p))
If indice >= 0 Then
CB.SuspendLayout()
CB.SelectedIndex = indice
CB.Select(p, CB.Text.Length)
CB.ResumeLayout()
End If
End If
End Sub

Friend Sub ComboAutoComplete(ByVal Combo As ComboBox)
AddHandler Combo.KeyUp, AddressOf ComboAutoCompleteKeyUp
End Sub

solo es cuestion de llamar a la rutina ComboAutocomplete con el combobox
como parametro


Espero te sirva

Saludos

Carlos Durán Urenda


"Bernardo Campos" escribió en el mensaje
news:

Hola amigos, donde puedo encontrar o como se hace, un control text
autocompletar, mientras completa un texto, se ubica en un list mas abajo?
algo asi como las ayuda..gracias.

Bernardo.

Muchas gracias Carlos, lo probaré

"Carlos Durán Urenda" wrote in message
news:%

Hola Bernardo
Yo utilizo el siguiente codigo para autocompletar el texto de los combos,
con algunas pequeñas modificaciones podrias adaptarlo a un TextBox y un

List

Private Sub ComboAutoCompleteKeyUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs)
Dim CB As ComboBox = DirectCast(sender, ComboBox)
Dim inicio As Integer = CB.Text.Length
Dim indice As Integer
Dim t As String = e.KeyCode.ToString
If t.Length = 1 AndAlso (IsNumeric(t) OrElse (t >= "A" AndAlso t

<> "Z") _

OrElse InStr(" /*-+()!#$%&=?¡¿~{}[],.-_<>@|°¬",
t) > 0) Then
Dim p As Integer = CB.SelectionStart
indice = CB.FindString(CB.Text.Substring(0, p))
If indice >= 0 Then
CB.SuspendLayout()
CB.SelectedIndex = indice
CB.Select(p, CB.Text.Length)
CB.ResumeLayout()
End If
End If
End Sub

Friend Sub ComboAutoComplete(ByVal Combo As ComboBox)
AddHandler Combo.KeyUp, AddressOf ComboAutoCompleteKeyUp
End Sub

solo es cuestion de llamar a la rutina ComboAutocomplete con el combobox
como parametro


Espero te sirva

Saludos

Carlos Durán Urenda


"Bernardo Campos" escribió en el mensaje
news:
> Hola amigos, donde puedo encontrar o como se hace, un control text
> autocompletar, mientras completa un texto, se ubica en un list mas

abajo?

> algo asi como las ayuda..gracias.
>
> Bernardo.
>
>