Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира

 


Как отфильтровать содержимое Listbox взависимости от того, что было выделено

Следующий код работает по принципу “Selected items only”.

Private Sub Form_Load()

    'ListBox Style should be Checkbox
    List1.AddItem “a”
    List1.AddItem “b”
    List1.AddItem “c”

End Sub

Private Sub cmdHide_Click()
    Call FilterSelection(List1, True)
End Sub

Private Sub cmdShow_Click()
    Call FilterSelection(List1, False)
End Sub

Private Sub FilterSelection(ByRef lstUnfiltered As ListBox, 
bHideSelected As Boolean)

    Dim lCounter As Long

    Do While lCounter < lstUnfiltered.ListCount
        If lstUnfiltered.Selected(lCounter) = bHideSelected Then
            lstUnfiltered.RemoveItem (lCounter)
        Else
            lCounter = lCounter + 1
        End If
    Loop

End Sub

 

 


Основные разделы сайта


 

Реклама