Posted on January 4, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 'Controls - How to select all items in a list box
Private Sub cmdSelectAll_Click()
Dim I As Long, saveIndex As Long, saveTop As Long
' Save current state.
saveIndex = List2.ListIndex
saveTop = List2.TopIndex
' Make the list box invisible to avoid flickering.
List2.Visible = False
' Change the select state for all items.
For I = 0 To List2.ListCount - 1
List2.Selected(I) = True
Next
' Restore original state, and make the list box visible again.
List2.TopIndex = saveTop
List2.ListIndex = saveIndex
List2.Visible = True
End Sub |