busqueda textbox autocomplet

[gctalico]

que tal, no se si entendi bien pero ahi te va un ejemplo que yo utilizo, tengo un listview con datos y un textbox donde voy escribiendo y como voy escribiendo me selecciona el item que concuerda en el listview y al darle enter me llena el textbox, es algo asi

Código vb:

Sub Autocompletar(ByVal ListView As ListView, ByVal TBox As TextBox, ByVal inicio As Integer)
        ' variable para usar con el método FindItem que _
        ' permite buscar en el LV
        Dim item As ListViewItem
        ' Dim seleccion As Integer = 0
        ' busca en el item, la cadena escrita en el textbox, si coincide _
        'devuelve una referencia al item
        '  item = ListView.FindItemWithText(TBox.Text, 1, 0, 1)
 
        item = ListView.FindItemWithText(TBox.Text, True, inicio, True)
        ' verifica que el item no sea un valor nothing
        If Not item Is Nothing Then
            ' Muestra la selección pormas que no tenga el foco
            ListView.HideSelection = False
            ' desplaza la lista
            item.EnsureVisible()
            ' selecciona el item
            'item.Selected = True
            item.Selected = True
        Else
            ' Oculta la selección ya que no hay coincidencia
            ListView.HideSelection = True
        End If
    End Sub
 

esa es la funcion para autocompletar, ahora la llamo desde el evento textchanged asi

Código vb:

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
                                  
        Call Autocompletar(LsvArticulos, TextBox2, 1)'(listview,textbox,indice de columna de listview)
 
    End Sub
 

tambien en el evento keydown del textbox hago esto

Código vb:

Private Sub TextBox2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Down Then
            If LsvArticulos.SelectedIndices.Count > 0 Then
                Try
                    LsvArticulos.Items.Item(LsvArticulos.SelectedItems(0).Index + 1).Selected = True
                    TextBox2.Text = Trim(LsvArticulos.SelectedItems(0).SubItems(2).Text())
                Catch ex As Exception
                    Beep()
                End Try
            Else
                MsgBox(frmGeneral.msgerror4)
                LsvArticulos.Items.Item(0).Selected = True
            End If
        End If
    End Sub
 

y el el evento keyup hago esto

Código vb:

Private Sub TextBox2_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
        If e.KeyCode = Keys.Up Then
            If LsvArticulos.SelectedIndices.Count > 0 Then
                Try
                    LsvArticulos.Items.Item(LsvArticulos.SelectedItems(0).Index - 1).Selected = True
                    TextBox2.Text = Trim(LsvArticulos.SelectedItems(0).SubItems(2).Text())
                Catch ex As Exception
                    Beep()
                End Try
            Else
                MsgBox(frmGeneral.msgerror4)
                LsvArticulos.Items.Item(0).Selected = True
            End If
        End If
              If e.KeyCode = Keys.Enter Then
                   TextBox2.Text = Trim(LsvArticulos.SelectedItems(0).SubItems(2).Text())
else
textbox2.text = ""
end sub
 

con todo esto si me posiciono en el textbox2 y le doy con las flecas del teclado hacia arriba o hacia abajo me va seleccionando el item del listview y la funcion autocompletar conforme escribo en el textbox2 va selecionando de el listview ahora solo doy enter y me agrega el item de el listview a el textbox2


no se si era esto lo que querias pero espero te sirva

saludos