>Private Sub buttonAskQuestion_Click(ByVal sender As Object, _
> ByVal e As System.EventArgs) Handles buttonAskQuestion.Click
> SetTextForVocabularyQuestion()
> StateChangeForGameUI(GameUIState.waitForUserToStateKnowledge)
>End Sub
>'---------------------------------------------------------------------
>'ОБРАБОТЧИК СОБЫТИЙ:
>'Пользователь желает ответить на отображенный вопрос и сообщить, какой
>'наиболее сложный уровень является для него приемлемым
>'---------------------------------------------------------------------
>Private Sub buttonShowAnswers AdvancedVersion_Click( _
> ByVal sender As Object, ByVal e As System.EventArgs) _
> Handles buttonShowAnswers_AdvancedVersion.Click
> 'Установить состояние игры для отображения вариантов выбора
> StateChangeForGameUI( _
> GameUIState.waitForUserToAnswerMultipleChoice)
>End Sub
>'---------------------------------------------------------------------
>'ОБРАБОТЧИК СОБЫТИЙ:
>'Пользователь желает ответить на отображенный вопрос и сообщить, какой
>'наиболее легкий уровень является для него приемлемым
>'---------------------------------------------------------------------
>Private Sub buttonShowAnswers_SimpleVersion_Click( _
> ByVal sender As Object, ByVal e As System.EventArgs) _
> Handles buttonShowAnswers_SimpleVersion.Click
> 'Установить состояние игры для отображения вариантов выбора
> StateChangeForGameUI( _
> GameUIState.waitForUserToAnswerMultipleChoice)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer0_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer0.Click
> evaluateMultipleChoiceAnswer(buttonAnswer0, 0)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer1_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer1.Click
> evaluateMultipleChoiceAnswer(buttonAnswer1, 1)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer2_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer2.Click
> evaluateMultipleChoiceAnswer(buttonAnswer2, 2)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer3_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer3.Click
> evaluateMultipleChoiceAnswer(buttonAnswer3, 3)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer4_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer4.Click