Ejemplos usando el Api de windows para Visual basic

136 - Buscar items dentro de un Listbox con SendMessage

Volver al Listado Api - Anterior - Siguiente

El ejemplo utiliza el api con dos constantes, una llamada LB_FINDSTRING y otra LB_FINDSTRINGEXACT.

La primera buscará dentro del control cualquier ocurrencia en los items, la segunda, solo devolverá el resultado si la cadena a buscar está completa.

Si se encuentra la cadena, el Api retorna un valor mayor o igual a 0

En el ejemplo hay una función que se le envía el texto a buscar, y un parámetro para el tipo de búsqueda.

Controles:

Colocar un control ListBox
Un Checkbox
Un Command1

vista del form con los controles para buscar en el List

Código fuente en un formulario

Option Explicit ' Declaración del api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String) As Long 'Constante "Mensaje" para buscar una cadena en el ListBox Private Const LB_FINDSTRING = &H18F Private Const LB_FINDSTRINGEXACT As Long = &H1A2 'Recibe la cadena y el valor de tipo boolean para _ determinar si busca o no la cadena completa Private Sub Buscar_ListBox(Frase As String, _ Optional Frase_Completa As Boolean = False) Dim Indice As Long ' Tipo de búsqueda If Frase_Completa Then Indice = SendMessage(List1.hwnd, LB_FINDSTRINGEXACT, -1, Frase) Else Indice = SendMessage(List1.hwnd, LB_FINDSTRING, -1, Frase) End If If Indice < 0 Then 'no se encontró MsgBox " No se encontró la cadena en el ListBox ", vbExclamation Else ' se encontró la frase entonces la selecciona List1.ListIndex = Indice End If End Sub Private Sub Command1_Click() Call Buscar_ListBox(Text1, CBool(Check1.Value)) End Sub Private Sub Form_Load() Dim i As Integer 'Llena algunos datos el ListBox For i = 1 To 12 List1.AddItem MonthName(i) Next Command1.Caption = " Buscar " Check1.Caption = "Cadena completa" End Sub

Enlaces relacionados a buscar

Buscar en Recursos vb