Шрифт:
'--------------------------------------------------------------------
'Обработчик события щелчка для кнопки
'Настраивает наш элемент управления TreeView для отображения процесса
'последовательного заполнения дерева
'--------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim tnNewNode As TreeNode
'Отключить обновление ПИ до тех пор, пока дерево не будет заполнено
TreeView1.BeginUpdate
'Избавиться от устаревших данных
TreeView1.Nodes.Clear
'--------------------
'Узел "Neighborhoods"
'--------------------
'Добавить узел "Neighborhoods" верхнего уровня.
tnNewNode = TreeView1.Nodes.Add("Neighborhoods")
'Установить для узла метку, указывающую на то, что узел
'будет заполняться динамически
tnNewNode.Tag = node_needToBePopulated
'Этот фиктивный дочерний узел существует лишь для того, чтобы
'узел имел, по крайней мере, один дочерний узел и поэтому
'был расширяемым.
tnNewNode.Nodes.Add(dummy_node)
'------------
'Узел "Price"
'------------
tnNewNode = TreeView1.Nodes.Add("Price")
'Установить для узла метку, указывающую на то, что узел
'будет заполняться динамически
tnNewNode.Tag = node_needToBePopulated
'Этот фиктивный дочерний узел существует лишь для того, чтобы
'узел имел, по крайней мере, один дочерний узел и поэтому
'был расширяемым
tnNewNode.Nodes.Add(dummy_node)
'----------------
'Узел "HouseType"
'----------------
tnNewNode = TreeView1.Nodes.Add("HouseType")
'Установить для узла метку, указывающую на то, что узел
'будет заполняться динамически
tnNewNode.Tag = node_needToBePopulated
'Этот фиктивный дочерний узел существует лишь для того, чтобы
'узел имел, по крайней мере, один дочерний узел и поэтому
'был расширяемым.
tnNewNode.Nodes.Add(dummy node)
'Восстанавливаем обновление ПИ
TreeView1.EndUpdate
End Sub
''-----------------------------------------------------------------------------
''Обработчик событий BeforeExpand для нашего элемента управления TreeView
''ПРИМЕЧАНИЕ: В отличие от C#, данный обработчик
'' НЕ требует от вас связываться дорабатывать код
'' "InitializeComponent" (не делайте этого!)
'' Вы можете просто выбрать событие обычным путем
'' выпадающего списка событий в редакторах VB
''
''Вызывается при запросе пользователем расширения узла, у которого имеется,
''по крайней мере, один дочерний узел. Этот вызов осуществляется до отображения
''дочерних узлов данного узла и дает нам возможность динамически заполнить
''данными элемент управления TreeView.
''-----------------------------------------------------------------------------
Private Sub TreeView1_BeforeExpand(ByVal sender As Object, _
ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _