Как работать с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы