Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
'будет заполняться динамически
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
PopulateTreeViewNeighborhoods(tnExpanding)
Return 'done adding items!
Else
'Проверить другие возможности для узлов дерева, которые мы должны
'добавить.
MsgBox("HE СДЕЛАНО: Добавьте код для динамического заполнения этого узла")
'Снять отметку с этого узла, чтобы мы не могли вновь выполнить
'этот код
tnExpanding.Tag = ""
End If
End Sub
'------------------------------------------------------------------
'Эта функция вызывается для динамического добавления дочерних узлов
'в узел "Neighborhood"
'------------------------------------------------------------------
Sub PopulateTreeViewNeighborhoods(ByVal tnAddTo As TreeNode)
Dim tvControl As TreeView
tvControl = tnAddTo.TreeView
tvControl.BeginUpdate
'Очистить имеющийся фиктивный узел
tnAddTo.Nodes.Clear
'Объявить четыре узла, которые мы хотим сделать дочерними узлами
'того узла, который был передан.
Dim newNeighborhoodNodes As TreeNode
ReDim newNeighborhoodNodes(3)
newNeighborhoodNodes(0) = New TreeNode("Capitol Hill")
newNeighborhoodNodes(1) = New TreeNode("Chelsea")
newNeighborhoodNodes(2) = New TreeNode("Downtown")
newNeighborhoodNodes(3) = New TreeNode("South Bay")
'Добавить дочерние узлы в элемент управления TreeView
tnAddTo.Nodes.AddRange(newNeighborhoodNodes)
tvControl.EndUpdate
End Sub
Листинг 11.3. Запуск обработчика событий при изменении содержимого элемента TextBox программным путем
Поделиться:
Популярные книги
Бродяга
1. Бродяга
Фантастика:
попаданцы
5.40
рейтинг книги
Горизонт Вечности
11. Фронтир
Фантастика:
боевая фантастика
космическая фантастика
космоопера
5.00
рейтинг книги
Гримуар темного лорда IV
4. Гримуар темного лорда
Фантастика:
фэнтези
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Кодекс Крови. Книга VI
6. РОС: Кодекс Крови
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Майами
Детективы:
триллеры
6.40
рейтинг книги
Уникум
1. Уникум
Фантастика:
альтернативная история
4.60
рейтинг книги
Я еще не князь. Книга XIV
14. Дорогой барон!
Фантастика:
юмористическое фэнтези
попаданцы
аниме
5.00
рейтинг книги
Сильнейший Столп Империи. Книга 2
2. Сильнейший Столп Империи
Фантастика:
аниме
фэнтези
фантастика: прочее
попаданцы
5.00
рейтинг книги
Черная стрела
Приключения:
исторические приключения
8.83
рейтинг книги
Последний Паладин. Том 13
13. Путь Паладина
Фантастика:
городское фэнтези
попаданцы
аниме
5.00
рейтинг книги
На границе империй. Том 10. Часть 1
Вселенная EVE Online
Фантастика:
космическая фантастика
попаданцы
5.00
рейтинг книги
Одержимая (авторский сборник)
Фантастика:
фэнтези
научная фантастика
7.80
рейтинг книги
Золушка вне правил
Любовные романы:
любовно-фантастические романы
6.83
рейтинг книги
Последний реанорец. Том I и Том II
1. Высшая Речь
Фантастика:
фэнтези
7.62