busqueda textbox autocomplet

[denpz]

Hola buenas noches, lo que quiero hacer es que en un textbox sea como el autocomple pero con celdas pero que la búsqueda sea según la descripción y vaya listando lo que escribes no importando donde este lo que esta escribiendo, hay alguna forma para hacer esto? Gracias asta pronto

[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

[denpz]

gracias por contestarme, lo que pasa que lo que quiero haces es que encuentre una palabra no umporta donde por ejemplo: la descripcion seria asi sony ericson w580 y otra protector sony ericson w580 negro. y el usuario solo introduce w580 y aparescan solo esos dos por que tienen el w580 es algo a si pero que aparesca como autocomplet. Gracias

[dany22_]

Iniciado por 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

Hola que tal estimado amigo gctalico de abte mano te agradezco por tu aporte ya que ayuda a obtener mas conocimientos
Yo pribe tu codigo ya que es lo que estaba buscando pero no lo pude hacer funcionar a la totalidad ya que conforme voy escribiendo en el texbox me va borrando lo que escribo y si uso las teclas direccionales no sale del texbox como dices a que se puede deber o quizas hay algo que obviastes en el codigo que publicastes.
Te agradeceria hacerme saber porfavor ya que llevo muchos dias tratando de hacer esto