by David Peake (1 Submission)
Category: VB function enhancement
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
The ListView's clear method becomes slow on large lists. This function removes items faster.
Inputs
ListView Control
Assumes
You've got VB!
Public Sub ListView_Clear(lstListName As ListView)
Dim lCount As Long
Dim lLoop As Long
' Count items in listview
lCount = lstListName.ListItems.Count
' clear would probably be faster on a low number!
If lCount > 10 Then
' loop through (backwards) to remove items
' They're not visible so it's becomes fatser!!
For lLoop = lCount To 1 Step -1
lstListName.ListItems.Remove lLoop
Next
Else
lstListName.ListItems.Clear
End If
End Sub