Шрифт:
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
'-----------------------------
'Задать набор вариантов ответа
'-----------------------------