ListBox+CheckBox'ы

[MakS]

Можно ли запихать в ListBox CheckBox'ы?
Т.е. иметь на форме что-то вроде того, что используется в VB или в VBA при добавлении компонентов на Toolbox.
В предложенном меню выбора контроллов я такого элемента не обнаружил.

[esv]

Можно поставив в листбоксе Listbox.ListStyle = 1, тогда при Listbox.MultiSelect = 0 в нем будут радиобаттоны, а при Listbox.MultiSelect = 1 в нем будут чекбоксы.

[MakS]

А как считать выделенные данные?

[corgi]

вот так

Код: Выделить всё

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then MsgBox "Выделена"
Next