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

Салмре Иво

 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

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

 'Задать

набор вариантов ответов

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

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

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

 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 + _