Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: TreeView Добавлено: 17.12.08 00:27  

Автор вопроса:  Alex
Доброго времени господа, вопрос непервый (и наверное непоследний :)) )
1 Как добавлять в TreeView записи главную и дочернию?
2 Я хочу использовать TreeView как контакт лист (как в icq) если есть предложения лучше пишите :)
--
и где можно найти литературу про TreeView по русски а то для vb.net я нашёл а для vb найти немогу ((

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 Isage.ru



Вопросов: 3
Ответов: 38
  Профиль | | #1 Добавлено: 17.12.08 08:38
Тут расписано как работать. (единственная проблема на английском)!
http://www.vbdotnetheaven.com/UploadFile/scottlysle/TreeviewControlsVB04172007235716PM/TreeviewControlsVB.aspx

Ответить

Номер ответа: 2
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #2 Добавлено: 17.12.08 10:53
эх видно по русски про него нигде нету (( ладно буду переводить, может выложу здесь...

Ответить

Номер ответа: 3
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #3 Добавлено: 17.12.08 22:46
Немного разобрался!
Главное на данный момент моя задача решена…
Теперь на будущее если кому интересно будет выкладываю пример…
--
На форме расположите TreeView, три кнопки и 1 таймер

Ответить

Номер ответа: 4
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #4 Добавлено: 17.12.08 23:21
  1. ' просто вставте код...
  2. Dim dds(100) As Node
  3. Dim i As Integer
  4.  
  5. Private Sub Command1_Click()
  6. TreeView1.Nodes.Clear ' очищаем лист (если нечистить то вылетит ошибка)
  7. Dim ddf As Node
  8. '''
  9. Set ddf = TreeView1.Nodes.Add(, , "node1", "text1"
  10. ddf.Expanded = True ' стразу разворачивет список... (по умолчанию false, тоесть список после создания "закрыт"
  11. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node2", "text2"
  12. ddf.Expanded = True
  13. Set ddf = TreeView1.Nodes.Add("node2", tvwChild, "node3", "text3"
  14. Set ddf = TreeView1.Nodes.Add(, , "node4", "text4"
  15.  
  16. End Sub
  17.  
  18. Private Sub Command2_Click()
  19. TreeView1.Nodes.Clear ' очищаем лист (если нечистить то вылетит ошибка)
  20. Dim ddf As Node
  21. '''
  22. Set ddf = TreeView1.Nodes.Add(, , "node1", "text1"
  23. ddf.Expanded = True
  24. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node2", "text2"
  25. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node3", "text3"
  26. Set ddf = TreeView1.Nodes.Add(, , "node4", "text4"
  27. End Sub
  28.  
  29. Private Sub Command3_Click()
  30. Timer1.Interval = 1000
  31. End Sub
  32.  
  33. Private Sub Timer1_Timer() ' пример добавления записей...
  34. i = i + 1
  35. Set dds(i) = TreeView1.Nodes.Add(, , "alfa_" & i, "text i" & i)
  36. End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #5 Добавлено: 17.12.08 23:26
блин (( прошу прошенья, скобки не подставились… (теперь я понял почему надо код…)
На форме расположите TreeView, три кнопки и 1 таймер

  1. ' просто вставте код...
  2. Dim dds(100) As Node
  3. Dim i As Integer
  4.  
  5. Private Sub Command1_Click()
  6. TreeView1.Nodes.Clear ' очищаем лист (если нечистить то вылетит ошибка)
  7. Dim ddf As Node
  8. '''
  9. Set ddf = TreeView1.Nodes.Add(, , "node1", "text1")
  10. ddf.Expanded = True ' стразу разворачивет список... (по умолчанию false, тоесть список после создания "закрыт")
  11. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node2", "text2")
  12. ddf.Expanded = True
  13. Set ddf = TreeView1.Nodes.Add("node2", tvwChild, "node3", "text3")
  14. Set ddf = TreeView1.Nodes.Add(, , "node4", "text4")
  15.  
  16. End Sub
  17.  
  18. Private Sub Command2_Click()
  19. TreeView1.Nodes.Clear ' очищаем лист (если нечистить то вылетит ошибка)
  20. Dim ddf As Node
  21. '''
  22. Set ddf = TreeView1.Nodes.Add(, , "node1", "text1")
  23. ddf.Expanded = True
  24. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node2", "text2")
  25. Set ddf = TreeView1.Nodes.Add("node1", tvwChild, "node3", "text3")
  26. Set ddf = TreeView1.Nodes.Add(, , "node4", "text4")
  27. End Sub
  28.  
  29. Private Sub Command3_Click()
  30. Timer1.Interval = 1000
  31. End Sub
  32.  
  33. Private Sub Timer1_Timer() ' пример добавления записей...
  34. i = i + 1
  35. Set dds(i) = TreeView1.Nodes.Add(, , "alfa_" & i, "text i" & i)
  36. End Sub

Ответить

Номер ответа: 6
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #6 Добавлено: 17.12.08 23:30
O_o работает! позже объясню все свойства контрола, и ещё приведу какие ни буть примеры. А-то на русском толком ничего не нашёл…

Ответить

Номер ответа: 7
Автор ответа:
 ARMSoft



Вопросов: 0
Ответов: 1
  Web-сайт: FlexibleTreeView.com
 Профиль | | #7 		Добавлено: 23.12.08 08:48
Здравствуйте Alex.

Если вас интересуют более расширенные возможности treeview, по-сравнению со стандартным из BCL, предлагаю ознакомиться с нашим продуктом - Flexible TreeView for WinForms (http://FlexibleTreeView.com).
Он содержит функционал, которого вы не найдете ни в одном, доступном на сегодняшний день, контроле визуализации иерархических данных.

По-поводу вашего вопроса, после инсталляции запустите демо и в левом списке выберите Active Directory - данный пример показывает как эффектно и, что самое главное, удобно для пользователя можно реализовать контакт лист, список пользователей и т.п. с эффектом авто-распахивания нод.

Наш продукт активно развивается, так что, если какого-то функционала вам не хватает, сообщите и мы подумаем над его реализацией.
Если будут вопросы, пожалуйста задавайте у нас на форуме, всегда рады помочь.

Ответить

Номер ответа: 8
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #8 Добавлено: 23.12.08 13:21
Здравствуйте ARMSoft.
Спасибо за предложения но есть 1 но...
Мне надо чтобы он был не для VB.NET ( мне надо чисто для VB6… (или я чего то не понимаю :) )
(на сайте- цитирую)
Flexible TreeView - the most flexible TreeView-ListView hybrid control for .NET
(перевод)
Гибкий TreeView - самый гибкий гибридный контроль TreeView-ListView для.NET

Ответить

Номер ответа: 9
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #9 Добавлено: 23.12.08 14:23
treeViev – нужен для отображения любых древовидных систем, необязательно структуры папок на диске. Например, вы можете отобразить собственное генеалогическое дерево.
--
Некоторые свойства Treeviev
Appearance – 2 значения 1 “0 - ccfalt” и “1 – cc3D” изменяет внешний вид контрола с 3д на 2д.
Borderstyle – 2 значения 1 “0 - ccNone” и “1 - fixedsingle” есть или нет рамка вокруг контрола.
causesValidation - ??? (перевод. утверждение причин)
checkboxes – 2 значения true и false отображает (или нет) чит боксы возле записей…
dragIcon – иконка (указать путь) которая будет отображаться при срабатывания события Dragmode
DragMode – 2 значения, при значении “1 - vbAutomatic” мы можем перемещать
Enabled – разрешён или запрещен контрол на форме.
Font – параметры шрифта
FontTransparent – прозрачность шрифта (как понял я относительно к фону)
FullRowSelect – 2 значения. При “false” полоса выделения начинается от начала записи и до её конца, а при “true” от начала записи и до конца контрола.

... остальное посже...

Ответить

Номер ответа: 10
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #10 Добавлено: 23.12.08 14:27
Следующий пример покажет как «прикрипить» в Treeviev картини (иконки)
Для этого на до кинуть на форму ImageList1 и сам TreeViev, загрузити в ImageList четыре иконки, для этого в свойствах контрола войдите в раздел “Custom” -> вкладка “Images” -> кнопка “insert picture”, и добавьте картинки.
--
  1. Dim P_nodes As Node
  2.  
  3. Private Sub Form_Load()
  4. 'незабудте загрузить в ImageList1 4 иконки...
  5. TreeView1.ImageList = ImageList1 ' приклепляем ImageList1 и treeviev при желании можно указать в разделе "custom"
  6. '''
  7. P_nides = TreeView1.Nodes.Add(, , "node1", "Node_text1", 4, 2)
  8. P_nides = TreeView1.Nodes.Add("node1", tvwChild, "node1_2", "Node_text1", 1, 2)
  9. P_nides = TreeView1.Nodes.Add(, , "node2", "Node_text1", 3, 4)
  10. P_nides = TreeView1.Nodes.Add(, , "node3", "Node_text1", 1) ' а здесь всего 1 картина (она не меняется при выделении)
  11. ''''рассмотрим 1 запись (, , "node1", "Node_text1", 4, 2) здесь цифра 4 ссылается на индекс картини в ImageList1
  12. ' первая цифра (4) это картинка невыделеной записи вторая картинка (2) это картинка которую мы увидем при выделение записи
  13. End Sub

Ответить

Номер ответа: 11
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #11 Добавлено: 23.12.08 14:37
0_о вроде работает! … остальное посже (надо в ЛФ МИКТ готовится :))

Ответить

Страница: 1 |

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



© Copyright 2002-2011 VBNet.RU | Пишите нам