Как работать с TreeView? - VB
Формулировка задачи:
Коллеги! Объясните, мне, пожалуйста, как работать с компонентом TreeView (в MSDN посмотреть не могу в упор - траблы с ним, а работать нужно срочно). Нужно построить простейшее четырёхуровневое дерево, так чтобы другие интерфейсные элементы и сама прога видели его структуру, могли в реальном времени её менять (добавлять новые ветви и удалять старые, менять их названия), и видели, где курсор. Помогите пожалуйста. Энтот MSDN нехороший у меня не читается в упор.
Заранее спасибо.
Решение задачи: «Как работать с TreeView?»
textual
Листинг программы
Option Explicit Private Sub Form_Load() ' This code creates a tree with 3 Node objects. TreeView1.Style = tvwTreelinesPlusMinusText ' Style 6. TreeView1.LineStyle = tvwRootLines 'Linestyle 1. ' Add several Node objects. Dim nodX As Node ' Create variable. Set nodX = TreeView1.Nodes.Add(, , "r", "Root") Set nodX = TreeView1.Nodes.Add("r", tvwChild, "c1", "Child 1") nodX.EnsureVisible ' Show all nodes. Set nodX = TreeView1.Nodes.Add("c1", tvwChild, "c2", "Child 2") Set nodX = TreeView1.Nodes.Add("c1", tvwChild, "c3", "Child 3") nodX.EnsureVisible ' Show all nodes. End Sub Private Sub TreeView1_NodeClick(ByVal Node As Node) ' If the Node does have children, then display the text of ' the child Node. If Node.Children Then Caption = Node.Child.Text End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д