Работа с выделением в ListView

[|kerish|]

Как работать если в ListView выделено больше одного элемента?
Обьект SelectedItem выдает ошибку.
Может кто встречался?

[mad_Max]

SelectedItem тут похоже не поможет. Только если тупым перебором всех элементов.

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

If ListView1.SelectedItem Is Nothing Then
MsgBox "Ничего не выделено."
Else
  Dim strMsg As String
  Dim item As ListItem
  Dim items As Integer
  For Each item In ListView1.ListItems
    If item.Selected Then
      strMsg = strMsg & item.Text & vbCrLf
      items = items + 1
    End If
  Next item
  MsgBox ("Выделено " & CStr(items) & ":" & vbCrLf & strMsg)
End If

[|kerish|]

Ужасно

[GSerg]

Посылай ему LVM_GETNEXTITEM с флагом LVNI_SELECTED. Сначала номер айтема подставляй -1, потом - то, что вернулось в прошлый раз. Так узнаешь все номера выделенных...