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

 buttonAnswer0.Top = answerbuttons_beginY

 'Поместить PictureBox под элементами управления
 pictureBoxGameBoard.Top = _
 (answerButtons dy + dy betweenButtons) * 3 + _
 answerbuttons_beginY

 buttonAskQuestion.Top = 0
 buttonAskQuestion.Left = 174
 textBoxAskQuestion.Top = 0
#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления
 Const answerbuttons_beginY As Integer = 174
 '------------------------------------------------------------
 'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры
 '------------------------------------------------------------
 buttonShowAnswers_AdvancedVersion.Top = answerbuttons_beginY
 buttonShowAnswers_SimpleVersion.Top = answerbuttons_beginY

 '-----------------------------
 'Задать набор вариантов ответа
 '-----------------------------
 'Задать элемент управления, по которому будут выравниваться
 'все остальные элементы управления
 buttonAnswer0.Top = answerbuttons_beginY
 pictureBoxGameBoard.Top = 0
 buttonAskQuestion.Top = answerbuttons_beginY
 buttonAskQuestion.Left = 174
#End If
 buttonShowAnswers AdvancedVersion.Left = answerbuttons_beginX
 buttonShowAnswers_SimpleVersion.Left = _
 buttonShowAnswers_AdvancedVersion.Left + _
 answerButtons dx + dx_betweenButtons

 pictureBoxGameBoard.Left = 0
 pictureBoxGameBoard.Width = 240
 pictureBoxGameBoard.Height = 172
 buttonAnswer0.Left = answerbuttons_beginX
 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