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

 buttonAnswer1.Left = buttonAnswer0.Left + answerButtons_dx + _

  dx_betweenButtons

 buttonAnswer1.Top = buttonAnswer0.Top

 'Следующий ряд

 buttonAnswer2.Left = buttonAnswer0.Left

 buttonAnswer2.Top = buttonAnswer0.Top + answerButtons_dy + _

  dy_betweenButtons

 buttonAnswer3.Left = buttonAnswer2.Left + answerButtons_dx + _

  dx_betweenButtons

 buttonAnswer3.Top = buttonAnswer2.Top

 'Следующий ряд

 buttonAnswer4.Left = buttonAnswer2.Left

 buttonAnswer4.Top = buttonAnswer2.Top + answerButtons_dy + _

  dy_betweenButtons

 buttonAnswer5.Left = buttonAnswer4.Left + answerButtons_dx + _

  dx_betweenButtons

 buttonAnswer5.Top = buttonAnswer4.Top

End Sub

'-----------------------------------------------------------------------

'Вспомогательная функция, которая позволяет задавать состояние видимости

'кнопок, отображающих ответы из словаря

'-----------------------------------------------------------------------

Private Sub SetAnswerButtonVisibility(ByVal visibleState _

 As Boolean)

 buttonAnswer0.Visible = visibleState

 buttonAnswer1.Visible = visibleState

 buttonAnswer2.Visible = visibleState

 buttonAnswer3.Visible = visibleState

 buttonAnswer4.Visible = visibleState

 buttonAnswer5.Visible = visibleState

End Sub

'-----------------------------------------------------------------

'Вспомогательная функция, вызываемая для задания свойств видимости

'некоторых элементов управления

'-----------------------------------------------------------------

Private Sub SetDifficultyButtonVisibility(ByVal visibleState _

 As Boolean)

 buttonShowAnswers_AdvancedVersion.Visible = visibleState

 buttonShowAnswers_SimpleVersion.Visible = visibleState

End Sub

'-----------------------------------------------------------------------

'Вспомогательная функция, которая позволяет задавать состояние видимости

'кнопок, отображающих ответы из словаря

'-----------------------------------------------------------------------

Private Sub SetAnswerButtonEnabled(ByVal enabledState _

 As Boolean)

 buttonAnswer0.Enabled = enabledState

 buttonAnswer1.Enabled = enabledState

 buttonAnswer2.Enabled = enabledState

 buttonAnswer3.Enabled = enabledState

 buttonAnswer4.Enabled = enabledState

 buttonAnswer5.Enabled = enabledState

End Sub

'-----------------------------------------------------------------

'Задает текст в текстовом окне и кнопках,

'необходимых для формулирования вопросов.

'

'В случае практической реализации эта функция должна просматривать

'вопросы динамически

'-----------------------------------------------------------------

Private Sub SetTextForVocabularyQuestion