Страница: 1 |
Страница: 1 |
Вопрос: Как в TreeView несколько уровней делать?
Добавлено: 08.08.07 13:59
Автор вопроса: KreAtoR
никак не получается.
Смотрите у меня есть treeview и в него надо вставить динамически(зависит какая карта с каким количеством каналов находится в компе) все каналы данной карты.
Что у нас есть.
Кол-во карт
сколько каждая карта имеет каналов
и сколько канал ну или данная карта имеет sources
получаться должно так примерно.
карта1
-канал1
--соурс1
--соурс2
--соурс3
--соурс4
-канал2
--соурс1
--соурс2
и т.д.
рисую я через Do Until
а проблема в том что не могу расставить как надо, в основном проблема находится в
.Nodes.Add ЗдесьНаверно,tvwChlid,,"Channel1"
помогите плиз
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
ZagZag
ICQ: 295002202
Вопросов: 87
Ответов: 1684
Профиль | | #1
Добавлено: 08.08.07 19:11
Что-то типа:
Dim tiGrandmother As Node
Dim tiMammy As Node
Dim tiGranddaughter As Node
Set tiGrandmother = TreeView1.Nodes.Add
Set tiMammy = TreeView1.Nodes.Add(tiGrandmother, tvwChild)
Set tiGranddaughter = TreeView1.Nodes.Add(tiMammy, tvwChild)
tiGrandmother.Text = "Бабушка"
tiMammy.Text = "Мама"
tiGranddaughter.Text = "Внучка"
tiGrandmother.Expanded = True
tiMammy.Expanded = True
tiGranddaughter.Expanded = True
End Sub
Все как надо расставляется. Не пойму в чем проблема.
Номер ответа: 2
Автор ответа:
KreAtoR
Вопросов: 120
Ответов: 438
Профиль | | #2
Добавлено: 09.08.07 10:21
не понял как но у меня тут ошибка выходит, мол типы не подходят (
Номер ответа: 3
Автор ответа:
ZagZag
ICQ: 295002202
Вопросов: 87
Ответов: 1684
Профиль | | #3
Добавлено: 09.08.07 13:34
Странно, у меня все работает.
Контрол: TreeView1 (Microsoft Windows Common Controls 6.0 SP6)