События Форм.

Программы в операционной системе Windows управляются событиями. Каждый раз, когда перемещается мышь, нажимается кнопка, изменяются размеры формы и т.д., Windows генерирует сообщение, описывающее внешние действия. Это сообщение доставляется соответствующему объекту, которое и создает событие адекватное внешним действиям с объектом. Чтобы просмотреть события, связанные с формой в режиме конструирования, нужно выполнить двойной щелчок по ней – откроется окно кода программы (Рис.2). Текущая форма автоматически выбирается в списке Object, поэтому остается лишь раскрыть связанный с ней список Procedure.

С тартовая форма. Приложение может иметь более одной формы. Когда оно начинает работать, загружается одна из них. Задание первоначально загружаемой формы, выполняется в поле Start Object (Объект запуска) диалогового окна Свойства проекта (Рис 3), вызов которого производится командой Проект (Project) → Проект1 Свойства (Project1 Properties). По умолчанию объектом запуска назначается форма, созданная первой при работе с проектом.

Упражнение 2. Исследование событий формы.

1. Создать новый проект и присвоить ему имя «Форма_Свойства_Возможности». Для этого выполняется команда Project (Проект)→ Project 1Properties (Проект1Свойства). В диалоговом окне Свойства проекта установить Имя (Name) проекта «Форма_Свойства_Возможности»¹.

2. Присоединить к проекту новую форму: Project (Проект) → Add Form (Добавить форму). Изменить значения свойств новой формы: Name = frmH; Caption = Привет в окне свойств.

3. Дважды щелкнуть на элементе CommandButton (Кнопка) в панели элементов, чтобы разместить ее на форме. Задать свойства: Name = cmdH, Caption = Привет.

4

Рис 4. Изменение свойств Caption

. Дважды щелкнуть на кнопке, чтобы открыть окно кода программы с процедурой cmdH_Click. Добавить в процедуру следующий фрагмент:

Private Sub cmdH_Click

If frmH. Caption =”Привет” then

frmH.Caption = “Пока”

cmdH.Caption = “&Привет”

else

frmH. Caption =”Привет”

cmdH.Caption = “&Пока”

end if

End Sub

5. В диалоговом окне Свойства проекта в опции Start Object (Объект запуска) установить имя FrmH, выбрав его в падающем меню и нажать кнопку Ok. Запустить приложение и нажать несколько раз кнопку «Привет» (Рис 4.).

6

Рис 5. Изменение свойств Caption

. В окне кода (Рис 5.) выбрать для объекта Form процедуру Load и записать код:

Private Sub Form Load()

cmdH.Caption = “Пока”

End Sub

7. Запустить приложение. Обратить внимание на работу приложения в соответствии изменениями в программе. Сохранить проект File (Файл)→Save Project(Сохранить проект).

8. Разместить на форме еще одну кнопку. Дважды щелкнуть по ней и в процедуре Click этой кнопки ввести следующие строки:

Private Sub Command1_Click

Print: Print: Print

frmH.FontSize = 24

Print " VGLTA"

End sub

9. Запустить приложение.

10. Для изменения цвета надписи (свойство ForeColor) добавить в кодовое окно рассматриваемой процедуры между строкой, определяющей размер шрифта и командой печати следующий код: FrmH.ForeColor = vbRed. Запустить приложение.

11. Для сокрытия текста присвоить BackColor и ForeColor одинаковые значения, т.е BackColor = ForeColor. Запустить приложение.

12. Дважды щелкнуть по полю формы. Выбрать объект Form, событие Resize. Ввести в процедуру Resize следующую строку: Width = Height. Запустить проект и убедиться, что при попытке изменения размеров окно формы превращается в квадрат.

13. Вернуться к событию Resize и вместо строки Widht = Height записать следующее:

Left =(Screen.Width - Width)/2

Top = (Screen.Height - Height)/2

14. Сохранить проект. Запустить приложение. Форма должна располагаться в центре экрана.