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

192 - Buscar en Listview

Contenido de la página:

Buscar por Items
Buscar por SubItems
Usar FindItem para no agregar items duplicados
Enlaces relacionados

Ejemplo 1 - Buscar por Items

El mismo es como muestra la imagen:

vista pervia del formualrio de ejemplo para buscr contenido dentro de un control ListView

Este ejemplo solo busca en los Item del control, pero no en los SubItem (Ver ejemplo 2). Para buscar incluisive en los subitem, el segundo parámetro del método FindItem " Where ", en el cual se puede pasar como valor, lo siguiente: un 0 indica que buscará solo en los Item es decir en los elementos. Un 1 buscará en los SubElementos o SubItems, y un 2 que buscará en la propiedad Tag.

En este formulario, al ingresar un dato en un control textBox y presionar el botón buscar, se llama a la función Buscar_ListView que tiene los siguientes parámetros:

Private Function Buscar_ListView(Cadena As String, _
                            TipoBusqueda As ListFindItemHowConstants, _
                                      El_ListView As ListView) As String

El primer parámetro es la cadena a buscar, el segundo es el tipo de búsqueda a realizar, puede ser la cadena completa o una cadena parcial mediante los valores: lvwWhole o lvwPartial respectivamente. Por último se envía en el tercer parámetro el control Listview.

Colocar

un Text1,
un control Check1
un control ListView1
un Command1.

Código fuente en el Form:

'Variable para los Items Dim O_Item As ListItem 'Le pasa al método FindItem, el texto a buscar, el tipo de búsqueda _ ( lvwPartial o lvwWhole ) y el control ListView '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Buscar_ListView( _ Cadena As String, _ TipoBusqueda As ListFindItemHowConstants, _ El_ListView As ListView) As String ' Realiza la búsqueda pasándole los valores Set O_Item = ListView1.FindItem(Cadena, 0, 1, TipoBusqueda) 'Si no se encontró la cadena, O_Item pasa a valer Nothing ' No Se encontró la cadena If O_Item Is Nothing Then MsgBox "No se ha hallado el elemento buscado" ' Se encontró la cadena Else 'Selecciona el elemento encontrado O_Item.Selected = True MsgBox " Cadena encontrada " End If End Function Private Sub Command1_Click() ' si el Checkbox está activado , buscará la cadena completa ( lvwWhole ) If Check1 Then Call Buscar_ListView(txt_Buscar, lvwWhole, ListView1) '.. si no la cadena parcial ( lvwPartial ) Else Call Buscar_ListView(txt_Buscar, lvwPartial, ListView1) End If End Sub Private Sub Form_Load() With ListView1 .View = lvwReport .HideSelection = False 'Agrega dos encabezados .ColumnHeaders.Add , , "Meses" .ColumnHeaders.Add , , "Ganancias" 'Llena algunos valores para el ejemplo For i = 1 To 12 Set O_Item = .ListItems.Add(, , MonthName(i)) O_Item.SubItems(1) = FormatCurrency(i) Next End With Check1.Caption = " Buscar cadena completa " Command1.Caption = " Buscar " Form1.Caption = " Ejemplo del método FindItem del control listview " End Sub

Ejemplo 2 - Buscar por SubItems

Este otro ejemplo, permite buscar por el item o por los SubItems.

Para poder indicar esto último, se establece en el segundo parámetro de FinItem, el valor lvwText ( busca por el item ) o el valor de constante lvwSubItem ( para buscar por los subitems )

Nota: importante. Si se busca por los subitems, la cadena que se ingresa para buscar, debe ser una cadena completa, y no se puede usar una cadena parcial en la búsqueda, porque la ignorará

Agregar

un control Listview
un Commandbutton
dos opcion Button en un Array ( Option1(0) y Option1(1))
Añadir también la referencia a Ado, ya que el ejemplo carga datos de una base de datos ( Nwind.mdb del directorio de visual basic )

Formulario con el Listview y las opciones para poder busacr los datos

Nota: Como se dijo anteriormente, en el ejemplo se usa la base de datos Nwind que se instala con visual basic. Para probarla con otra, indicar la ruta de la base de datos en el Form_Load ( en el ConnectionString ), y también la tabla que se va a cargar, indicándola en el método Open del recordset

Código fuente en el formulario

Option Explicit ' variables ''''''''''''''''''''''''''''''''''''''''''''''' Private cn As ADODB.Connection Private rs As ADODB.Recordset Private ConnectionString As String Private Item As ListItem Private Sub Form_Load() ' Nuevo objeto Connection de ado Set cn = New ADODB.Connection ' Ruta de la base de datos Dim Base_de_Datos As String Base_de_Datos = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" ' cadena de conexión ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; " & _ "Persist Security Info = False; " & _ "Data Source=" & Base_de_Datos ' Abre la conexión pasándole el ConnectionString cn.Open ConnectionString ' Nuevo objeto Recordset Set rs = New ADODB.Recordset ' propiedades del recordset With rs .CursorLocation = adUseClient .LockType = adLockOptimistic ' Indica la tabla a cargar en el listview .Open "Productos", cn End With ' Si no hay registros sale If rs.RecordCount = 0 Then Exit Sub Else ' Posiciona el recordset en el primer registro rs.MoveFirst End If ' Llena el Listview Call Cargar_Registros_Listview(ListView1) Option1(0).Caption = " buscar por Item " Option1(1).Caption = "Buscar por los subItems " ' Cierra la conexión y el recordset rs.Close cn.Close Command1.Caption = " Buscar " Me.Caption = " Buscar por item y Subitem " End Sub ' Sub que carga el recordset en el ListView '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Cargar_Registros_Listview(Lv As ListView) Dim i As Long Dim Columna As Integer With Lv .ListItems.Clear ' elimina todos los datos .ColumnHeaders.Clear ' elimina los encabezados .View = lvwReport 'vista de reporte End With ' recorre los campos del recordset para agregar las columnas al Listview For Columna = 0 To rs.Fields.Count - 1 Lv.ColumnHeaders.Add , , rs(Columna).Name Next ' Recorre el recordset para añadir los items While Not rs.EOF Set Item = ListView1.ListItems.Add(, , rs(0)) For i = 1 To Lv.ColumnHeaders.Count - 1 ' verifica que el valor no sea de tipo Nulo If IsNull(rs.Fields(i).Value) = False Then Item.SubItems(i) = rs.Fields(i).Value End If Next ' siguiente registro rs.MoveNext Wend End Sub ' Botón que busca '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim Opcion As Integer Dim dato As String Dim Item As ListItem ' Busca por la primer columna ( por item ) If Option1(0).Value = True Then dato = InputBox(" Buscar por la primer columna", "Busacar") Opcion = lvwText ' busca por el item End If ' busca por las demás columnas ( por SubItem ) If Option1(1).Value = True Then dato = InputBox(" Buscar en el resto de columnas ", "Buscar por Subitems ") Opcion = lvwSubItem ' busca por los subitems End If ' si lo ingresado es una cadena vacia sale If dato = vbNullString Then Exit Sub End If ' Busca con el método FindItem, estableciendo la opcion de búsqueda Set Item = ListView1.FindItem(dato, Opcion, , lvwPartial) ' si el item es nothing no se encontró If Item Is Nothing Then MsgBox " No se encontró el dato", vbInformation Exit Sub Else ' .. si no , selecciona el elemento encontrado Item.EnsureVisible Item.Selected = True ListView1.SetFocus End If End Sub ' Cambia la opción de búsqueda ''''''''''''''''''''''''''''''''''''''' Private Sub Option1_Click(Index As Integer) If Option1(0).Value = True Or Option1(1).Value = True Then Command1.Enabled = True End If End Sub

3 - Evitar agregar duplicados

El siguiente formulario, hace uso del método FindItem, para que al intentar añadir un nuevo elemento en el Listview, poder comprobar si el dato a ingresar ya existe. En caso de que exista se muestra un Mensaje de error.

Form

vista de lformulario de ejemplo

Agregar

Un control Listview y dejarle el nombre por defecto ListView1
También un commandbutton
Un Text1

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() If Text1 = "" Then MsgBox "debe ingresar un dato en Text1", vbInformation Exit Sub End If ' si la función devuelve False, ses por que no se encontró _ el elemento, por lo tanto no stá duplicado If Duplicado(Trim(Text1)) = False Then ListView1.ListItems.Add , , Text1 ' lo añade Else ' elemento repetido MsgBox "El dato que está ingresando ya existe", vbExclamation End If End Sub Private Sub Form_Load() With ListView1 ' le crea una columna .ColumnHeaders.Add , , "Nombre Producto" .View = lvwReport ' añade unos elementos al Listview .ListItems.Add , , "Micro Intel" .ListItems.Add , , "Micro Amd" .ListItems.Add , , "Memoria Usb" .ListItems.Add , , "Impresora Epson" .ListItems.Add , , "Monitor LG" .ListItems.Add , , "DVD Samsung" End With Command1.Caption = "Agregar" Text1 = "" End Sub Function Duplicado(ByVal dato As String) As Boolean Duplicado = True With ListView1 On Error Resume Next If LCase(ListView1.FindItem(dato)) <> LCase(dato) Then Duplicado = False End If Err.Clear End With End Function

Recursos vb 6.0 - Enlaces relacionados

Buscar usando el Api SendMessage

Recursos Visual basic.NET - enlaces relacionados

Buscar en DataGridview con el método Find de un BindingSource

Buscar en Recursos vb