Dim spisoc As ListBox, i As Variant
Set spisoc = Me.Список0
If spisoc.ItemsSelected.Count > 0 Then
For Each i In spisoc.ItemsSelected
Debug.Print i
Debug.Print spisoc.Column(0, i), spisoc.Column(1, i), spisoc.Column(2, i), spisoc.Column(3, i)
Next i
Else
Debug.Print "Список пустой"
End If
End Sub
В окне отладки появятся следующие значения:
Переменная выводит на печать в окно отладки номера выбранных записей.
Пример:
Рассмотрим работу метода ItemData:
Private Sub Кнопка2_Click()
Dim spisoc As ListBox, i As Variant
Set spisoc = Me.Список0