Как использовать свойство Checked объекта ListBox

[Vova_2581]

Извините за, может быть, детский вопрос. Запутался в трех соснах. Помогите разобраться.
Использую объект ListBox со свойством CheckBox...

Мне нужно командно поставить «птички» на всех элемента списка и прочесть те, которые таким образом выделены.
Но почему-то не получается...

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

Dim i As Byte
For i = 0 To List1.ListCount - 1
   List1.List(i).Checked = True
Next

Такой код выдает ошибку.
В MSDN описан пример, но он также не работет...
http://msdn.microsoft.com/ru-ru/library/2yc9d57t(v=vs.90).aspx

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

' Visual Basic 6.0
' The Visual Basic 6.0 ListBox control didn't support this scenario,
' a ListView control had to be used instead.
Dim s As String
Dim i As Integer
' Loop through all items
For i = 1 To ListView1.ListItems.Count
   ' If an item is checked, add it to the string
   If ListView1.ListItems(i).Checked = True Then
      s = s & "Checked Item" & CStr(i) & " = " & _
ListView1.ListItems(i) & vbCrLf
   End If
Next
' Determine if any items are checked.
If s <> "" Then
    MsgBox s
End If

Подскажите, где ошибка?

[Хакер]

О боже мой.

List1.List(i).Checked = True — «List» — это параметрическое свойство, возвращающее String, а не ссылку на какой-то там интерфейс, чтобы пытаться через точку достучаться к каким-то его свойствам. И если эта фраза тобою прочитывается как «ууу.... что-то умное, я сделал что-то не то, но не понимаю всё», то брось же наконец заниматься фигняй, и займись изучением основ «игровой механики» языка.

List — параметрическое свойство, возвращающее String. Зато есть другое параметрическое свойство, — Selected, — которое и должна использоваться для установки/получения статуса чекбокса соответствующего пункта.

Итого:

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

Dim i as integer
For i = 0 To List1.ListCount - 1
   List1.Selected(i) = True
Next

И никаких i as byte!

[Vova_2581]

Большое спасибо! Все получилось!

[Vova_2581]

Странно, что пример из MSDN не работает. Ведь Microsoft должны же учитывать все эти тонкости, что вы описали!

[Хакер]

Глупости! Я проверил пример, который ты взял и MSDN, и он абсолютно рабочий. Проблема не в примере, не в MSDN, а проблеме в тебе. Делаешь что попало — получаешь соответствующий результат.

[Qwertiy]

Странно, что пример из MSDN не работает. Ведь Microsoft должны же учитывать все эти тонкости, что вы описали!

Пример для ListView, а у тебя не ListView.