Размещение и изменение размера формы

2 Зацепив за маркеры, измените размер формы, сделав ее квадратной с длиной стороны, равной 7 см.

3 Запустите приложение на выполнение (<F5>) и посмотрите, как размещается форма на экране и какие имеет размеры. Остановите выполнение приложения кнопкой < n>(Конец).

4 Откройте окно макета свойств формы. Выберите вкладку По категориям, затем категорию Размещение. Рассмотрите, какие свойства размещены в этой категории и каковы их значения.

5 Откройте окно макета формы (Просмотр / Формат окна). В этом окне зацепите мышкой форму и переместите в правый нижний угол экрана. Обратите внимание на изменение значений свойств, находящихся в категории Размещение. Измените размеры формы, установив значения Width и Height равными
3000 (твип).

6 Для размещения формы по центру экрана щелкните правой кнопкой мыши по форме в окне макета формы и выберите команду Начальные действия / Центральный экран. Можно отцентрировать форму, изменив свойство StartUpPosition (Центральный экран).

7 Запустите проект на выполнение, затем остановите его.

Изменение других свойств формы

8 Чтобы в строке заголовка формы появился текст, задайте свойство Caption – Мое первое приложение.

9 Для того чтобы иметь возможность обращаться к форме по имени при написании кода в процедурах, задайте свойство Name – frmColor.

10 Для окраски формы в другой цвет измените свойство BackСolor (Цвет фона) – любой по желанию.

11 Для изменения цвета шрифта, который будет напечатан, при нажатии кнопки измените свойство ForeColor на желтый.

Размещение элементов управления в форме и задание их свойств

12 Используя различные способы, разместите на форме по диагонали два элемента управления – кнопки <CommandButton>.

13 Выделите обе кнопки, используя прием захвата, и ознакомьтесь с командами пункта меню Форматировать. Разместите и установите размеры кнопок, как показано на рисунке 1.

14 Задайте свойства размещенных на форме кнопок (таблица 9.4):

 

Таблица 9.4 – Свойства кнопок

Свойства	Первая кнопка	Вторая кнопка
Name (Имя)	cmdColorButton	cmdDataButton
Caption (Заголовок)	Цвет формы	Волшебная кнопка
BackColor (Цвет)	на свое усмотрение	на свое усмотрение
ToolTipText (Всплывающая подсказка)	Нажми, чтобы перекрасить форму	Нажми, чтобы узнать, что…

 

Написание процедур для кнопок

15Для того чтобы при нажатии кнопки <Цвет формы> форма изменила свой цвет, щелкните дважды по кнопке <Цвет формы>, и откроется окно кода со стандартным событием Click для заполнения процедуры. Между строками
Privat Sub­ и End Sub введите текст, чтобы получилось:

 

Private Sub cmdColorButton_Click()

frmColor.BackColor = QBColor(2)

End Sub

 

16Для того чтобы при нажатии на вторую кнопку на форме появился текст, выберите из списка в окне кода процедуру для cmdDataBotton и заполните ее.

 

Private Sub cmdDataBotton_Click()

Print "Не повторяется такое никогда"

Print Format (Now, "dddddd, hh ч.mm мин.")

End Sub

17 Запустите приложение на выполнение с помощью кнопки <Начать> на панели инструментов. Подведите курсор к кнопке <Цвет формы>, прочитайте подсказку и нажмите ее. Подведите курсор к кнопке <Волшебная кнопка>, прочитайте подсказку и нажмите ее. Закройте приложение кнопкой <Конец>.

18 Сохраните созданный проект на диске D: в свой папке. Введите имя формы – frm1.frm, имя проекта – First.vbp.

19 Закройте окно Visual Basic, затем загрузите ваш проект, используя команду меню Файл / Открыть проект.

Размещение на форме кнопки <Выход>

20 Разместите на форме кнопку <cmdExit>.

21 Перейдите в окно программного кода и заполните процедуру для данной кноп­ки, чтобы получилось:

 

Private Sub cmdExit_Click()

End

End Sub

22 Запустите приложение и проверьте работу кнопки.