Книга: Программирование мобильных устройств на платформе .NET Compact Framework

Листинг 5.3. Явное изменение состояния приложения (удачный подход)

Private m_someImportantInfo As String
'Определить состояния, в которых может находиться приложение
Enum MyStates
 step1
 step2
End Enum
'----------------------------------------------------
'Главная функция, которая
'вызывается всякий раз, когда возникает необходимость
'в изменении состояния приложения
'----------------------------------------------------
Sub ChangeApplicationState(ByVal newStateAs MyStates)
 Select Case newState
 Case MyStates.step1
  TextBox1.Visible = True
  ListBox1.Visible = False
 Case MyStates.step2
  m_someImportantInfo = TextBox1.Text
  TextBox1.Visible = False
  ListBox1.Visible = True
 End Select
End Sub
'----------------------------------------------------------------------
'Пользователь щелкнул на кнопке и хочет перейти к выполнению
'следующего шага данного приложения. Скрыть текстовое окно и отобразить
'окно списка в отведенном для этого месте.
'----------------------------------------------------------------------
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 'Вызвать главную функцию для изменения состояния
 ChangeApplicationState(MyStates.step2)
End Sub
'-------------------------------------
'Код, выполняющийся при загрузке формы
'-------------------------------------
Private Sub Forml_Load(ByVal sender As Object, _
 ByVal eAs System.EventArgs)
 'Вызвать главную функцию для изменения состояния
 ChangeApplicationState(MyStates.step1)
End Sub

Оглавление книги