listbox question

[JohnSearcy]

I am new to using listboxes and am expirementing with code and figuring stuff out here and there, but I am having trouble with one thing. What code enables the automatic selection of all items within the listbox?

Sample (that obviously doesn't work):

For X = 0 To listbox1.ListCount - 1
listbox1.SetSelected (X) (and I tried Select (X))
Next X

Most likely very simple - just haven't hit the right coding yet.

Thanks,
John

 

[Kenneth Hobson]

You were close.

Private Sub UserForm_Initialize()
  Dim i As Integer
  With ListBox1
    .MultiSelect = fmMultiSelectMulti
    .List = Array("1", "2", "3")
    For i = 0 To .ListCount - 1
      .Selected(i) = True
    Next i
  End With
End Sub

 

[JohnSearcy]

Thank you, Kenneth.

Not understanding this part > .List = Array("1", "2", "3")

 

[Kenneth Hobson]

.List is a quick way to fill the listbox rather than one at a time. Obviously, you are probably filling your listbox in some other manner.

 

[JohnSearcy]

I see. I am filling it in another Sub. Thanks, again!!