• Home
 · 
• VB function enhancement
 · 
• Fast ListView Clear Function

Fast ListView Clear Function

The ListView's clear method becomes slow on large lists. This function removes items faster.

Inputs
ListView Control

Assumes
You've got VB!

Rate Fast ListView Clear Function

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

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