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

468 - Función para filtrar un control ComboBox o ListBox

Ejemplo para hacer un filtro en controles ListBox o combobox

El ejemplo tiene una función que retorna un array de tipo variant con los elementos filtrados , teniendo en cuenta si se debe incluir el dato a filtrar , o al contrario, retornar todos los datos del control menos el filtro

Los parámetros que hay que indicar son cuatro: el control combo o listbox, el dato o filtro a usar, si se incluye o excluye en el resultado, y el tipo de comparación: vbTextCompare o vbBinaryCompare

Código fuente en un formulario con un command1 y un Combo1

Option Explicit Public Function Filtrar_Combo_ListBox( _ cboLbox As Object, _ Dato As String, _ Incluir_En_Array As Boolean, _ tipo_Comparacion As VbCompareMethod) As Variant On Error GoTo error_Function Dim i As Long, array_temporal() As String, total As Long ' redimensiona la matriz a la cantidad de elementos del combo o listbox ReDim array_temporal(0 To cboLbox.ListCount - 1) ' dependiendo de la opción ( incluir o excluir ) ''''''''''''''''''''''''''''''''''''''''''''''''''' ' incluir en el array todos los elementos que sean iguales a "dato" Select Case Incluir_En_Array Case True ' recorre toda la lista For i = 0 To cboLbox.ListCount - 1 ' si el dato es igual, agregar al array If InStr(1, cboLbox.List(i), Dato, tipo_Comparacion) Then array_temporal(total) = cboLbox.List(i) total = total + 1 End If Next ' incluir en el array todos los elementos que sean distintos a "dato" Case False For i = 0 To cboLbox.ListCount - 1 If InStr(1, cboLbox.List(i), Dato, tipo_Comparacion) = 0 Then array_temporal(total) = cboLbox.List(i) total = total + 1 End If Next End Select ' redimensionar y preservar la matriz de acuerdo al total If total = 0 Then ReDim array_temporal(0) Else ReDim Preserve array_temporal(LBound(array_temporal) To total - 1) End If ' retorno del array Filtrar_Combo_ListBox = array_temporal Exit Function error_Function: MsgBox Err.Description, vbCritical, "Número de error: " & Err.Number End Function Private Sub Command1_Click() Dim retVarArray As Variant Dim items As Variant '1 - ' se filtrará excluyendo el dato "enero" ( devuelve : febrero, marzo ) '''''''''''''''''''''''''''''''''''''''''''''''''''' retVarArray = Filtrar_Combo_ListBox(Combo1, _ "enero", _ False, _ vbTextCompare) ' recorre el array que contiene el resultado For Each items In retVarArray MsgBox items, vbInformation, "1" Next '2 - ' se filtrará incluyendo el dato "enero" '''''''''''''''''''''''''''''''''''''''''''''''''''' retVarArray = Filtrar_Combo_ListBox(Combo1, _ "enero", _ True, _ vbTextCompare) ' recorre el array que contiene el resultado For Each items In retVarArray MsgBox items, vbInformation, "2" Next '3 - ' no devuelve nada '''''''''''''''''''''''''''''''''''''''''''''''''''' retVarArray = Filtrar_Combo_ListBox(Combo1, _ "diciembre", _ True, _ vbTextCompare) For Each items In retVarArray MsgBox items, vbInformation, "3" Next End Sub Private Sub Form_Load() ' agrega items al combo With Combo1 .AddItem "enero" .AddItem "febrero" .AddItem "marzo" End With End Sub

Relacionados

Buscar en Recursos vb