ListBox Style Checkbox

[keenanbr]

How do you set checkbox and check the value of the checkbox in a listbox whose style is 'checkbox'

thanks in advance

 

[Foada]

Take a look at the "Selected" Property.

If you choose to battle wits with the witless be prepared to lose.

 

[LPlates]

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To 2
List1.AddItem "ok"
List1.Selected(i) = True
Next i
End Sub

 

[keenanbr]

actually wht you need is

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To 2
List1.AddItem "ok"
List1.Selected(0) = True
Next i
End Sub

 

[Sw0rdfish149]

To extend this question a more how would you then remove selected items in a listbox that has the checkbox style?

Sw0rdfish149

 

[zemp]

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To 2
  If List1.Selected(i) Then List1.RemoveItem
Next i
End Sub

The style of the list box will not dictate how this is done it just controls how the selection is displayed (Check box or highlighted). Make sure your .multiselect property is set the way you want it.

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[zemp]

Correct the code from my previous post,

...
    If List1.Selected(i) Then List1.RemoveItem(i)
...

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."