Sección de códigos, trucos y ejemplos para visual basic

 

 

353 - Autocompletar Listview

<Volver> - Anterior - Siguiente

 

 

 

---

 

Ejemplo para buscar en un Listview, y poder autocompletar un control textbox a medida que se escribe

 

El siguiente código usa principalmente la función o método FindItem del Listview para poder buscar a medida que se va escribiendo en el textbox, y poder autocompletarlo si es que hay coincidencias.

 

Formulario

 

Controles

• Un control Listview
• Un Textbox
• Un módulo bas

 

Código fuente en el formulario

Option Explicit Private Sub Form_Load() Dim item As ListItem With ListView1.ListItems ' agrega algunos items Set item = .Add(, , "Maria Eugenia") Set item = .Add(, , "Miguel") Set item = .Add(, , "Carlos Jose") Set item = .Add(, , "Marcelo Luis") Set item = .Add(, , "Federico") Set item = .Add(, , "Felipe Agustin") Set item = .Add(, , "Jose") Set item = .Add(, , "Juan") Set item = .Add(, , "Luis Alberto") Set item = .Add(, , "Juan Carlos") ' Agrega un encabezado de columna para el nombre ListView1.ColumnHeaders.Add , , "Nombre" ' vista en modo reporte ListView1.View = lvwReport End With End Sub Private Sub Text1_Change() ' autocompleta el Listview Call Autocompletar(ListView1, Text1) End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Flag = False ' si se presionan el tecla de retroceso y la de borrar _ no se autocompleta If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then Flag = True End If End Sub

 

Código fuente en el módulo bas

Option Explicit Public Flag As Boolean Sub Autocompletar(ListView As ListView, TBox As TextBox) ' variable para usar con el método FindItem que _ permite buscar en el LV Dim item As ListItem Dim seleccion As Integer ' busca en el item, la cadena escrita en el textbox, si coincide _ devuelve una referencia al item Set item = ListView.FindItem(TBox.Text, 0, , 1) ' 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 If Not Flag Then ' Almacena la posición de la selección en el textbox seleccion = TBox.SelStart ' Asigna el texto completo del item encontrado TBox.Text = CStr(item) If Not TBox.Text = vbNullString Then ' posición de la selección TBox.SelStart = seleccion ' selecciona el texto TBox.SelLength = Len(TBox.Text) - seleccion End If End If Else ' Oculta la selección ya que no hay coincidencia ListView.HideSelection = True End If End Sub

 

Recursos Visual basic 6.0 - Enlaces relacionados

• Autocompletar comboBox
• Autocompletar DataCombo

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar