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 программным путем
Private m_eventTriggerCount As Integer
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Buttonl.Click
'Запускает событие TextChanged так же,
'как если бы текст был введен пользователем
TextBox1.Text = "Привет, мир"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TextBox1.TextChanged
m_eventTriggerCount = m_eventTriggerCount + 1
'Обновить надпись для отображения количества событий
Label1.Text = "Событий: #" + CStr(m_eventTriggerCount)
'Внести каждое событие в список
ListBox1.Items.Add(m_eventTriggerCount.ToString() + TextBox1.Text)
End Sub
Листинг 11.4. Использование модели состояний для обновления интерфейса и контроль запуска событий с целью более глубокого изучения процесса обработки событий и управления им
'-----------------------------------------
'Для активизации контроля запуска событий:
' #Const EVENTINSTRUMENTATION = 1
'Для отмены контроля запуска событий:
' #Const EVENTINSTRUMENTATION = 0
'-----------------------------------------
#Const EVENTINSTRUMENTATION = 1
'-----------------------------------------------------------------------
'Флаг, указывающий обработчикам событий, должен ли из них осуществляться
'выход без выполнения каких-либо действий
'-----------------------------------------------------------------------
Private m_userInterfaceUpdateOccuring As Boolean
'Счетчики событий
Private m_radioButton1ChangeEventCount As Integer
Private m_textBox1ChangeEventCount As Integer
'-------------------------------------------------------------------------
'Код, который следует включать лишь в том случае, если приложение
Читать дальше