Шрифт:
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) _
Handles TreeView1.BeforeExpand
'Получить узел, который будет расширяться
Dim tnExpanding As System.Windows.Forms.TreeNode
tnExpanding = e.Node
'Если узел не отмечен как "нуждающийся в заполнении данными",
'то он устраивает нас в том виде, "как он есть".
If Not (tnExpanding.Tag Is node needToBePopulated) Then
Return 'Разрешить беспрепятственное продолжение выполнения
End If
'Требуется динамическое заполнение дерева данными.
'Мы знаем, что узел должен быть заполнен данными; определить,
'что это за узел
If (tnExpanding.Text = nodeText_Neighborhoods) Then