Лабораторная работа по MicrosoftVisualBasic № 5
Проект «Рисование домика»
- Запустите программу MicrosoftVisualBasic[Пуск - Все программы - MicrosoftVisualBasic 6.0 - MicrosoftVisualBasic 6.0]. На открывшейся диалоговой панели выбрать тип создаваемого проекта STANDART.EXE и нажать кнопку открыть.
- Разместите на форме frm1 две командные кнопки cmdStena и cmdKrisha и создать для них событийные процедуры рисования стены и крыши:
Private Sub cmdKrisha_Click()
Scale (0, 170)-(350, 0)
frm1.Line (20, 100)-(220, 20)
frm1.Line (20, 100)-(120, 150)
frm1.Line (120, 150)-(220, 100)
End Sub
Private Sub cmdStena_Click()
Scale (0, 170)-(350, 0)
frm1.Line (20, 100)-(220, 20), , B
End Sub
Теперь необходимо нарисовать несколько домиков различного размера на второй форме. Если использовать событийные процедуры. То для каждого домика нужно будет создавать свои процедуры, а это очень трудоемко.
Для рисования домика целесообразно создать общую процедуру Dom2(X1, X2, Y1, Y2 As Single), которая имеет только список входных параметров (координаты углов стены). Выходных параметров эта процедура не имеет.
Поместим код общей процедуры Dom2 в программный модуль первой формы и, для того чтобы ее вызов мог производиться из программного модуля второй формы, сделаем эту процедуру глобальной.
- Запустите проект и щелкните по кнопке Пуск.
