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

#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

'========================================================================
'Задать статическую компоновку нашего пользовательского интерфейса.
'Сюда входят все элементы, позиции которых остаются фиксированными.
'Изменения в остальные свойства внесет конечный автомат пользовательского
'интерфейса
'========================================================================
Private Sub SetStartControlPositionAndState
 pictureBoxGameBoard.Width = 240
 pictureBoxGameBoard.Height = 176

 'Установить размеры кнопок множественного выбора вариантов ответов
 Const answerButtons_dx As Integer = 117
 Const answerButtons_dy As Integer = 18

 buttonAnswer0.Width = answerButtons_dx
 buttonAnswer0.Height = answerButtons_dy
 buttonAnswer1.Size = buttonAnswer0.Size
 buttonAnswer2.Size = buttonAnswer0.Size
 buttonAnswer3.Size = buttonAnswer0.Size
 buttonAnswer4.Size = buttonAnswer0.Size
 buttonAnswer5.Size = buttonAnswer0.Size
 buttonShowAnswers_AdvancedVersion.Width = answerButtons_dx
 buttonShowAnswers_AdvancedVersion.Height = 24
 buttonShowAnswers_SimpleVersion.Size = _
 buttonShowAnswers_AdvancedVersion.Size

'Расстояние (в пикселях) между соседними кнопками
 Const dx_betweenButtons As Integer = 3
 Const dy betweenButtons As Integer = 2
 Const answerbuttons_beginX As Integer = 3

 'Создать задний план для нашего изображения, чтобы мы видели
 'его в процессе тестирования
 Dim gameBoard As System.Drawing.Bitmap
 gameBoard = New System.Drawing.Bitmap( _
 pictureBoxGameBoard.Width, pictureBoxGameBoard.Height)

 Dim gameboard_gfx As System.Drawing.Graphics
 gameboard_gfx = System.Drawing.Graphics.FromImage(gameBoard)
 gameboard_gfx.Clear(System.Drawing.Color.Yellow)

 Dim myPen As System.Drawing.Pen = New System.Drawing.Pen( _
 System.Drawing.Color.Blue)
 gameboard_gfx.DrawRectangle(myPen, 2, 2, _
 gameBoard.Width - 4, gameBoard.Height - 6)
 myPen.Dispose
 gameboard_gfx.Dispose
 pictureBoxGameBoard.Image = gameBoard

 'Разместить текстовое окно, в котором содержатся задаваемые вопросы,
 'а также подробные ответы для пользователей
 textBoxAskQuestion.Left = 0
 textBoxAskQuestion.Width = 240

 buttonAskQuestion.Width = 64
 buttonAskQuestion.Height = 20
#If PLAYFIELD_ON_BOTTOM <> 0 Then 'ПОЛЕ ИГРЫ располагается под ПИ
 Const answerbuttons_beginY As Integer = 42
 Const showanswers_beginY As Integer = 77
 '------------------------------------------------------------
 'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры
 '------------------------------------------------------------
 buttonShowAnswers_AdvancedVersion.Top = showanswers_beginY
 buttonShowAnswers_SimpleVersion.Top = showanswers_beginY

 '------------------------------
 'Задать набор вариантов ответов
 '------------------------------
 'Задать элемент управления, по которому будут выравниваться
 'все остальные элементы управления