Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
Dim listIdx As Integer
For listIdx = _
m_instrumentedEventLog.Count - 1 To 0 Step -1
logItem = CStr(m_instrumentedEventLog(listIdx))
listItems.Add(logItem)
Next
End Sub
#End If
'------------------------------------------------------
'Событие изменения состояния переключателя RadioButton1
'------------------------------------------------------
Private Sub RadioButton1_CheckedChanged(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles RadioButton1.CheckedChanged
'Если обновление данных в пользовательском интерфейсе осуществляется
'приложением, то мы не хотим обрабатывать его так же, как если бы
'это событие было запущено пользователем. Если это именно так,
'то осуществить выход из функции без выполнения каких-либо действий.
If (m userInterfaceUpdateOccuring = True) Then
Return
End If
'Подсчитать, сколько раз выполнена обработка данного события
m_radioButtonlChangeEventCount = _
m_radioButtonlChangeEventCount + 1
#If (EVENTINSTRUMENTATION <> 0) Then
'Зарегистрировать наступление события
instrumented_logEventOccurrence("radioButton1.Change:" + _
m_radioButton1ChangeEventCount.ToString + ":" + _
RadioButton1.Checked.ToString) 'value
#End If
End Sub
'-------------------------------------------------------------
'Событие щелчка на кнопке Button1
'Имитирует обновление пользовательского интерфейса программным
'кодом, что может приводить к запуску обработчика события
'-------------------------------------------------------------
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)
'--------------------------------------------------------------------
Поделиться:
Популярные книги
Хозяин Стужи 2
2. Злой Лед
Фантастика:
аниме
фэнтези
попаданцы
5.75
рейтинг книги
Эволюция мага
2. Гибрид
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Солнечный корт
4. Все ради игры
Фантастика:
зарубежная фантастика
5.00
рейтинг книги
Мы друг друга не выбирали
1. Мы выбираем...
Любовные романы:
остросюжетные любовные романы
прочие любовные романы
современные любовные романы
5.00
рейтинг книги
Вернувшийся: Посол. Том IV
4. Вернувшийся
Фантастика:
космическая фантастика
киберпанк
5.00
рейтинг книги
Я снова князь. Книга XXIII
23. Дорогой барон!
Фантастика:
юмористическое фэнтези
аниме
попаданцы
5.00
рейтинг книги
Наследие Маозари 2
2. Наследие Маозари
Фантастика:
попаданцы
рпг
аниме
5.00
рейтинг книги
Воронцов. Перезагрузка
1. Воронцов. Перезагрузка
Фантастика:
попаданцы
альтернативная история
фантастика: прочее
5.00
рейтинг книги
Ваше Сиятельство 2
2. Ваше Сиятельство
Фантастика:
фэнтези
альтернативная история
аниме
5.00
рейтинг книги
Враг из прошлого тысячелетия
4. Соприкосновение миров
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Распутье
Сибириада
Проза:
военная проза
историческая проза
5.00
рейтинг книги
Двойник Короля 8
8. Двойник Короля
Фантастика:
аниме
фэнтези
фантастика: прочее
попаданцы
5.00
рейтинг книги
Газлайтер. Том 16
16. История Телепата
Фантастика:
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Виктор Глухов агент Ада. Компиляция. Книги 1-15
Виктор Глухов агент Ада
Фантастика:
фэнтези
героическая фантастика
боевая фантастика
попаданцы
5.00