>'кодом, что может приводить к запуску обработчика события
>'-------------------------------------------------------------
>Private Sub Button1_Click(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles Button1.Click
> 'Указать на то, что мы не хотим, чтобы обработчики сразу же
> 'обрабатывали события, поскольку мы обновляем
> 'пользовательский интерфейс.
> 'm_userInterfaceUpdateOccuring = true;
> RadioButton1.Checked = True
> TextBox1.Text = "Hello World"
> 'Обновление пользовательского интерфейса закончено
> m_userInterfaceUpdateOccuring = False
>End Sub
>'------------------------------------------------------------------
>'Обработчик события изменения состояния элемента управления TextBox
>'------------------------------------------------------------------
>Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles TextBox1.TextChanged
> 'Если обновление данных в пользовательском интерфейсе осуществляется
> 'приложением, то мы не хотим обрабатывать его так же, как если бы
> 'это событие было запущено пользователем. Если это именно так,
> 'то осуществить выход из функции без выполнения каких-либо действий.
> If (m_userInterfaceUpdateOccuring = True) Then
> Return
> End If
> 'Подсчитать, сколько раз выполнена обработка данного события
> m_textBox1ChangeEventCount = m_textBox1ChangeEventCount + 1
>#If EVENTINSTRUMENTATION <> 0 Then
> 'Занести событие в журнал
> instrumented_logEventOccurrence("textBox1.Change:" + _
> m_textBoxlChangeEventCount.ToString() + ":" + _
> TextBox1.Text.ToString()) 'Value
>#End If
>End Sub
>Private Sub buttonShowEventLog_Click(ByVal sender As _
> System.Object, ByVal e As System.EventArgs) _
> Handles buttonShowEventLog.Click
>#If EVENTINSTRUMENTATION <> 0 Then
> instrumentation_ShowEventLog()
>#End If
>End Sub
Листинг 11.5. Вызов метода Update() элемента управления для отображения пояснительного текста, информирующего о ходе выполнения задачи
>'--------------------------------------------------------------------
>'Этот код принадлежит форме, содержащей по одному элементу управления
>'Button (button1) и Label (label1)
>'--------------------------------------------------------------------
>Private Sub Button1_Click(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles Button1.Click
> 'Отобразить курсор ожидания
> System.Windows.Forms.Cursor.Current = _
> System.Windows.Forms.Cursors.WaitCursor
> Dim testString As String
> Dim loop3 As Integer
> For loop3 = 1 To 100 Step 10
> Label1.Text = loop3.ToString() + "% Done..."
> '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!