Как писать / читать из многоколоного ListBox или ListView?

[AndreyMust19]

Здавствуйте!
VB пользуюсь редко, но иногда приходится. И вот мне дали бессрочное "задание" и вдруг говорят - к понедельнику должно быть готово!
Результат работы я решил выводить в виде таблицы. Надо создать элемент из нескольких столбцов (н-р 6 штук) и записать туда текст. ListBox не подходит, так как в него все вставляется в один столбик. Прошелся поиском по форуму - узнал о ListView. Я понял что сначала надо добавить в него новую строку (Add), а затем изменить ее столбики. Вот только ни один из найденных примеров не работает. Скажите, как добавлять в стоблики ListView'а новые значения.
Надо чтобы выглядело вот так:

[MIT]

Поиск "SubItems" по форуму

[iGrok]

По ходу плохо искал..

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

Dim e As ListItem
Set e = ListView1.ListItems.Add(1, , CStr(Rnd))

Потом работаешь с e.ListSubItems...

[Хакер]

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

Sub AddRow(ByVal sProcName As String, ByVal lProcId As Long, ByVal sProtocol As String, ByVal sLocAddr As String, ByVal lLocPort As Long, ByVal sRemAddr As String, ByVal lRemPort As Long, ByVal sState As String)
    With LV.ListItems.Add(думай_сам, думай_сам, sProcName + ":" + CStr(lProcId), , думай_сам)
        .SubItems(1) = sProtocol
        .SubItems(2) = sLocAddr + ":" + CStr(lLocPort)
        .SubItems(3) = sRemAddr + ":" + CStr(lRemPort)
        .SubItems(4) = sState
    End With
End Sub

Странно, я думал, наибольшие проблемы будут с получением информации о соединениях, а не с ListView.

[iGrok]

Странно, я думал, наибольшие проблемы будут с получением информации о соединениях, а не с ListView.

Мне кажется, скрин приведён просто для примера..

[AndreyMust19]

Хорошо, я еще раз попробую. А рисунок я привел только в качестве примера - как желательно должно выглядеть (порты мне не нужны).
Попробовал. Вы меня хоть убейте, но не получается. SubItems работает, но в ListViewResult все равно текст только в одном столбике. Вот моя программа:
http://exfile.ru/31790
Посмотрите, может ошибка в чем-то особенном. Я ведь не буду просто так писать на форум, я сначала поискал информацию, но она не заработала.

[iGrok]

Хорошо, я еще раз попробую. А рисунок я привел только в качестве примера - как желательно должно выглядеть (порты мне не нужны).
Попробовал. Вы меня хоть убейте, но не получается. SubItems работает, но в ListViewResult все равно текст только в одном столбике. Вот моя программа:
http://exfile.ru/31790
Посмотрите, может ошибка в чем-то особенном. Я ведь не буду просто так писать на форум, я сначала поискал информацию, но она не заработала.

Так. Ну тогда ещё пара моментов.
1) Нужно выставить стиль в lvwReport
2) Нужно задать список колонок. Либо в дизайнере, либо кодом. Если не ошибаюсь, что-то типа Columns.Add

[AndreyMust19]

iGrok

2) Нужно задать список колонок.

Список колонок у меня есть, иначе код S.SubItems(1) = "Text" не интерпретировался, так как не существовало бы колонки с икдексом 1. А код интерпретируется, но вот текст в колонках не появляется.

1) Нужно выставить стиль в lvwReport

А вот это попробую.

[iGrok]

1) Нужно выставить стиль в lvwReport

А вот это попробую.

Если что, это свойство View.

[Хакер]

иначе код S.SubItems(1) = "Text" не интерпретировался

Какой кошмар. Код бы прекрасно "интерпретировался". Просто он бы при выполнении выбрасывал ошибку.

[AndreyMust19]

Фу, разобрался неделю назад, получилось! Дело было в Report. Спасибо всем, ждите продолжения.