Ejemplos usando el Api de windows para Visual basic

97 - Buscar Items en un ListView con SendMessage

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo que muestra como utilizar la función Api SendMessage con el mensaje LVM_FINDITEM y algunas constantes, para buscar elementos o Items en un control ListView.

El mismo tiene una rutina donde se le debe enviar el control ListView en el cual buscar, en el segundo parámetro la cadena.

También tiene dos controles OptionButton para determinar si la búsqueda de la cadena o palabra debe ser parcial o completa

Colocar para el ejemplo un control ListView, un Command1, un Option1 y un Option2 comoe está en el gráfico:

vista del ejemplo en visual basic para buscar elementos en u control ListView con el Api de Windows

Código fuente en un formulario.

Option Explicit 'UDT necesarias para usar con SendMessage Private Type POINTAPI x As Long y As Long End Type Private Type LVFINDINFO flags As Long psz As String lParam As Long pt As POINTAPI vkDirection As Long End Type 'Función Api SendMessage Private Declare Function SendMessage _ Lib "user32" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long 'Constantes para SendMessage Private Const LVM_FIRST = &H1000 Private Const LVM_FINDITEM = (LVM_FIRST + 13) Private Const LVFI_PARAM = &H1 Private Const LVFI_STRING = &H2 Private Const LVFI_PARTIAL = &H8 Private Const LVFI_WRAP = &H20 Private Const LVFI_NEARESTXY = &H40 'Variable de retorno y para la estructura Dim lRet As Long, LFI As LVFINDINFO 'Procedimiento que busca: Se le envía el control ListView y el texto a buscar Private Sub Buscar_ListView(ListView As ListView, _ Cadena As String) 'Esto define si la cadena debe estar completa o si encuentra una parte _ seleccionará el primer Item del ListView que mas se le paresca If Option1 Then 'cadena completa LFI.flags = LVFI_WRAP Else 'Cadena parcial LFI.flags = LVFI_PARTIAL Or LVFI_WRAP End If If Cadena = "" Then Exit Sub End If 'Se le asigna a esta variable la cadena que luego se le envía a SendMessage LFI.psz = Cadena 'Le enviamos el mensaje LVM_FINDITEM, la estructura y rel ListView lRet = SendMessage(ListView.hwnd, LVM_FINDITEM, -1, LFI) If lRet >= 0 Then 'Seleccionamos el item del Listview ListView.SelectedItem = ListView.ListItems(lRet + 1) 'Propiedad opcional ListView.HideSelection = False 'Si el item se encuentra fuera del área visible desplazamos la lista _ para poder visualizarlo con el método EnsureVisible ListView.SelectedItem.EnsureVisible ListView.SetFocus Else 'No se encontró MsgBox (" Elemento no encontrado "), vbInformation End If End Sub Private Sub Command1_Click() 'Ejecutamos la función _ pasandole el control ListView y el texto Call Buscar_ListView(ListView1, Text1) End Sub Private Sub Form_Load() Dim i As Integer 'Ingresamos algunos elementos For i = 0 To 500 ListView1.ListItems.Add , , "Elemento" & i Next 'Caption de los controles Me.Caption = " Ejemplo para buscar en un ListView " & _ "utilizando el Api SendMessage " Option1.Caption = " Cadena completa " Option2.Caption = " Cadena parcial " Option1.Value = True Command1.Caption = " Buscar " End Sub

Ejemplo 2

Otro ejemplo para buscar un item o subitem en una columna específca

El formulario tiene un combo donde se debe indicar el número de la columna en donde buscar , es decir el índice del ColumnHeader .

También tiene un CheckBox para realizar la búsqueda por la palabra completa o por el valor parcial

Cuando se presiona buscar , y hay mas coincidencias, se sigue buscando hasta el final del listado, y si llega al final comienza a buscar nuevamente desde el comienzo, es decir desde el item con indice 1

Descargar

formulario

Relacionados

Buscar en Recursos vb