Fast ListView Clear Function
The ListView's clear method becomes slow on large lists. This function removes items faster.
Original Author: David Peake
Inputs
ListView Control
Assumptions
You've got VB!
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.