> SetAnswerButtonVisibility(False)
> SetDifficultyButtonVisibility(False)
> Case GameUIState.waitForNextQuestion
> setQuestionText("List answer details here... " + vbCrLf + _
> "Lots of space to write..." + vbCrLf + _
> "Waiting for user to select next question...")
> textBoxAskQuestion.Visible = True
> buttonAskQuestion.Text = "Next"
> buttonAskQuestion.Visible = True
> 'Убедиться в том, что кнопка отображается на переднем плане
> buttonAskQuestion.BringToFront()
> SetAnswerButtonVisibility(False)
> SetDifficultyButtonVisibility(False)
>#If PLAYFIELD_ON_BOTTOM <> 0 Then 'ПОЛЕ ИГРЫ располагается под ПИ
> textBoxAskQuestion.Height = pictureBoxGameBoard.Top - 2
>#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления
> textBoxAskQuestion.Top = pictureBoxGameBoard.Top + _
> pictureBoxGameBoard.Height + 2
> textBoxAskQuestion.Height = Me.Height - _
> textBoxAskQuestion.Top
>#End If
> Case GameUIState.waitForUserToStateKnowledge
> SetTextForVocabularyQuestion()
> textBoxAskQuestion.Visible = True
> buttonAskQuestion.Visible = False
> SetAnswerButtonVisibility(False)
> SetDifficultyButtonVisibility(True)
>#If PLAYFIELD_ON_BOTTOM <> 0 Then 'ПОЛЕ ИГРЫ располагается под ПИ
> textBoxAskQuestion.Height = _
> buttonShowAnswers_AdvancedVersion.Top - 2
>#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления
> textBoxAskQuestion.Top = _
> buttonShowAnswers_AdvancedVersion.Top + _
> buttonShowAnswers_AdvancedVersion.Height + 2
> textBoxAskQuestion.Height = Me.Height - _
> textBoxAskQuestion.Top
>#End If
> Case GameUIState.waitForUserToAnswerMultipleChoice
> buttonAskQuestion.Visible = False
> SetDifficultyButtonVisibility(False)
> 'Сделать кнопки доступными, чтобы пользователь мог щелкать на них
> SetAnswerButtonEnabled(True)
> SetAnswerButtonVisibility(True)
>#If PLAYFIELD_ON_BOTTOM <> 0 Then
> 'ПОЛЕ ИГРЫ располагается под ПИ
> textBoxAskQuestion.Height = buttonAnswer0.Top - 2
>#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления
> 'Разместить текстовое окно таким образом, чтобы экран использовался
> 'эффективно
> textBoxAskQuestion.Top = buttonAnswer5.Top + _
> buttonAnswer5.Height + 2
> textBoxAskQuestion.Height = Me.Height - _
> textBoxAskQuestion.Top
>#End If
> End Select
>End Sub
>'========================================================================
>'Задать статическую компоновку нашего пользовательского интерфейса.
>'Сюда входят все элементы, позиции которых остаются фиксированными.
>'Изменения в остальные свойства внесет конечный автомат пользовательского
>'интерфейса