Microsoft Office Tutorials and References
In Depth Information
ListBox Techniques
Figure 14-16: This ListBox makes selecting rows in a worksheet easy.
The All and None buttons (named SelectAllButton and SelectNoneButton , respectively)
have simple event-handler procedures as follows:
Private Sub SelectAllButton_Click()
Dim r As Integer
For r = 0 To ListBox1.ListCount - 1
ListBox1.Selected(r) = True
Next r
End Sub
Private Sub SelectNoneButton_Click()
Dim r As Integer
For r = 0 To ListBox1.ListCount - 1
ListBox1.Selected(r) = False
Next r
End Sub
 
Search JabSto ::




Custom Search