Глава 4. Создадим в программном модуле второй формы событий­ную процедуру ст<ЗДомики2_С1д.ск ()

Создадим в программном модуле второй формы событий­ную процедуру ст<ЗДомики2_С1д.ск (). Процедура будет обеспечивать рисование трех домиков путем вызова с помо­щью оператора Call из программного модуля первой формы общей процедуры Домик с различными значениями входных параметров.

3. Добавить в проект форму командой [Project-Add Form]. Поместить на форму f rm2 кнопку стсЩомики2.

4. Ввести код событийной процедуры стсЗДомики2_С1д.ск() в программный код второй формы frm2:

Private Sub стсЩомики2_С1л.ск () frm2.Scale (0, 170)-(350, 0) Call £гт1.Домик2(10, 50, 50, 10) Call frml.floMMK2 (60, 150, 100, 40) Call frml.floMMK2 (160, 320, 110, 50) End Sub

Для рисования трех домиков на третьей форме разместим общую процедуру ДомикЗ в отдельном стандартном про­граммном модуле. В области (General)(Declaration) програм­много кода определим используемые в качестве координат на всех трех формах переменные XI, Х2, Yl, Y2 как гло­бальные.

5. Добавить в проект стандартный программный модуль
командой [Project-Add Module]. В окне Программный код
определить переменные и ввести процедуру:

Global XI, Х2, Yl, Y2 As Single

Public Sub ДомикЗ (XI, X2, Yl, Y2 As Single)

frm3.Line (XI, Y1)-(X2, Y2),, В

frm3.Line (XI, Y1)-(X2, Yl)

frm3.Line (XI, Y1)-((X1 + X2)/2, Yl + Yl/2)

frm3.Line ((XI + X2)/2, Yl + Yl/2)-(X2, Yl)

End Sub

6. Сохранить программный модуль в папке проекта коман­
дой [File-Save Modulel.bas As...].

Создадим в программном модуле третьей формы событий­ную процедуру стсЩомикиЗ_СИск (). Процедура будет обеспечивать рисование трех домиков путем вызова из стан­дартного программного модуля общей процедуры Домик с различными значениями входных параметров.

7. Добавить в проект форму командой [Project-Add Form]. Поместить на форму f rm3 кнопку стсЩомикиЗ.

8. Ввести код событийной процедуры стсЩомикиЗ_С 1 i с к () в программный код третьей формы frm3:

Основы алгоритмизации и программирования

Private SubстсЩомикиЗ Click()

frm3. Scale (0, Module1.Домик Modulei.Домик Modulel.Домик End Sub

170)-(350, 0) 10, 50, 50, 10 60, 150, 100, 40 160, 320, 110, 50

Для показа второй и третьей формы используем метод Show. 9. Поместить на форму f rml кнопки cmd2 и cmd3. Создать для них событийные процедуры, реализующие показ вто­рой и третьей форм:

Private Sub cmd2_Click()

frm2.Show