многоколонный ListBox

[IZO-admin]

В ListBox есть такой атрибут как число столбцов.
Спрашивается, можно ли такие списки с числом столбцов>1 использовать при заполнении программно методом Add?

[xolod]

Не понял , суть вопроса в чем, можно ли использовать метод Add когда св-во Columns > 1? А почему нет?

[alibek]

[TRANSLATE ON]
Он хочет спросить, можно ли в ListBox заполнять колонки.
[TRANSLATE OFF]
Нет, нельзя. Когда число столбцов > 1, тогда просто начинает действовать другая схема заполнения списка (элементы добавляются не по вертикали, а по горизонтали).
Поищи по форуму с текстом "LB_SETTABSTOPS" и будет тебе щастье.

[IZO-admin]

Поищи по форуму с текстом "LB_SETTABSTOPS" и будет тебе щастье.

Спасибо. Вроде как понял: сначала выставляются позиции табуляции, как в Ворде (на линейке или в параметрах), а затем добавляются элементы с табуляцией, которые выстраиваются по позициям.

[alibek]

В точку.
Дополнительно надо проконтролировать, чтобы длина текста "колонки" не превышала ширину "колонки", иначе все столбцы "поедут".

[Rojohn]

А можно сделать в ListBox, чтобы стиль был чекбокс и много колончатая запись (поля таблицы как в DataGreed) или как это лучше реализовать, точнее в каком контроле?
З.ы. Не могу использовать DataGreed, т.к. надо чекить именно список многоколончатых записей (без редактирования).
Спасибо!

[CodeName33]

Rojohn, я в своё время делал, фиксированный шрифт и выравнивал столбцы пробелами.

[Konst_One]

может проще заюзать ListView

[Rojohn]

А как правильно сделать колонки в ListView, чтобы первая была просто чекбокс, счёт или проверка была только по строкам и первый столбец был Visible=False?

[Konst_One]

1/ CheckBoxes=True
2/ Report Style

[Rojohn]

Это-то ясно вроде... Просто ни разу не юзал ListView Как в нём вообще колонки заполняются? Rак сделать одну из них невидимой? Как обратиться к строке?

[lord0n]

блин, вот ты заморачиваешься
я бы давно поставил какой нить грид, типа флекса, и не мучился

[Konst_One]

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

ListView.ListItems.Item(i).Text
ListView.ListItems.Item(i).SubItems(i)

[Rojohn]

Что такое SubItems? Как вставить текст в конкретную колонку? И насчёт Visible=False что?

[Rojohn]

блин, вот ты заморачиваешься
я бы давно поставил какой нить грид, типа флекса, и не мучился

А гриды вроде не позволяют сделать чекит активным, а остальное только для чтения. Или я ошибаюсь?
А сторонних не хочу пользовать...
Вот если только грамотный ресайзер сторонний... Только пока такого не нашел Одни в MDI не пашут, другие - SSTab не ресайзят...
Пока выкрутился, только очень замороченно.

[Konst_One]

вот сссылочка на разные мудренные примерчики для ListView:
http://btmtz.mvps.org/listview/

а простые(и не только) примерчики использования этого контрола можно найти на этом сайте

[Rojohn]

Примеры, конечно, хороши, но практически все на API А что-нить попроще?) Вот смотрю, цедю по строчке в вопросах ентого сайта, а полноценных ответов пока не нашел. Может где-нить в последних ответах найду

[Konst_One]

на , смотри:

[Rojohn]

Спасибо за пример! Было бы достаточно и этого:

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

For j = 1 To .ColumnHeaders.Count
            Set lsi = lst.ListSubItems.Add(, lst.Key & "_subitem" & j, "SubItem " & j)
        Next


Плохо, что у .ColumnHeaders(1) нет свойства Visible... Куда можно записать поле с ID записи, чтобы его не было видно, а при считывании строки можно было понять какой у неё ID? (ID из BD Access)

[Konst_One]

для этого не нужно ничего скрывать, просто используй tag:

...
Set lst = .ListItems.Add(, "item" & i, "Item " & i)
lst.Tag = i
...

[Rojohn]

Tag я бы приберёг на случай контекстных хелпов В него ведь больше одного значения не запишешь... Я просто сделал ширину столбца 0 и поместил код (из предыдущего вопроса), делающий эти столбцы неподвижными.
Спасибо! Хорошая штука ListView!

И напоследок маленький вопросик: Видел реализацию древесной структуры на базе ListView. Чем вообще отличается дерево на ListView от дерева на TreeView? Что лучше и почему?