| Вопрос: Ребята ну помогите с TreeView'ом !!!! | Добавлено: 14.05.03 09:54 |
Автор вопроса:  Danil | ICQ: 174601190 |
|
Всем привет! Ни как не могу сделать что бы в VB.NET'е сделать ветви в TreeView программно, т.е. радительскую ветвь знаю как, а вот подчиненные ни как не получаются. TreeView1.Nodes.Add( New TreeNode("Родительская ветвь"))End SubЕсли не трудно намыльте пример или дайте ссылку. Помогите плз!!!!!!!!!!!!!!!!!!!! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Snake ICQ: 302130238 Вопросов: 16 Ответов: 39 |
Профиль | | #1 | Добавлено: 14.05.03 10:12 |
|
У тебя mSDN-ф нет чёли там популярно описано... Ладно сжалимся, вот типа примерчик dim nodX as Node Set nodX = .TreeView1.Nodes.Add (,, "Root","Родитель", icon, iconOpen) '"Root"-ключ ветки '"Родитель" -текст ветки 'icon - икона отоброжения в дереве(номер иконки в ImageList) 'iconOpen-икона отоброжения в дереве при отрытии ветки(номер иконки в ImageList) Set nodX = .TreeView1.Nodes.Add ("Root",4,"CHILD1" ,"Ребёнок", icon, iconOpen) '"Root"-ключ родительской ветки в которую ставицца дочерняя '4-определитель что ветка дочерняя Ключ ветки всегда String и должен быть уникален(не обязат параметр) Ну и пример обхода дерева: обход 2-го уровня веток дерева и заполнение списка значениями Текст веток + уник ключ для поиска в базе Private Sub Form_Load() Dim node As node Set node = TreeForm.TreeView1.Nodes.Item(1).Child Dim strText As String Dim n As Integer 'Dim node As node ListDel.LabelEdit = lvwManual ListDel.SmallIcons = TreeForm.ImageList1 ListDel.ColumnHeaders.Add , , "", 3900 ListDel.HideColumnHeaders = True n = node.FirstSibling.Index strText = Mid(node.FirstSibling.Key, 2) Do While n <> node.LastSibling.Index strText = Mid(TreeForm.TreeView1.Nodes(n).Next.Key, 2) n = TreeForm.TreeView1.Nodes(n).Next.Index If Split(node.Text, " ")(0) <> "Текст" Then icnum = 2 Else icnum = 10 End If sKey = Mid(node.Key, 2) ListDel.ListItems.Add , "K" & sKey, node.Text, , icnum Set node = TreeForm.TreeView1.Nodes(n) Loop If Split(node.Text, " ")(0) <> "Текст" Then icnum = 2 Else icnum = 10 End If sKey = Mid(node.Key, 2) ListDel.ListItems.Add , "K" & sKey, node.Text, , icnum End Sub |
||
|
Номер ответа: 2 Автор ответа: DanilICQ: 174601190 Вопросов: 11 Ответов: 19 |
Профиль | | #2 | Добавлено: 14.05.03 10:43 |
|
Извени, но мне кажется ты прислал пример на VB6, а мне надо для VB.NET, а MSDN у меня есть только долго копаться внем а мне срочно. Но всеровно спасибо, что ответил |
||
|
Номер ответа: 3 Автор ответа:  DanilICQ: 174601190 Вопросов: 11 Ответов: 19 |
Профиль | | #3 | Добавлено: 14.05.03 11:13 |
|
Всем спасибо! Разобрался! Вопрос закрыт. |
||
Страница: 1 |