Меню сайтаПолезные страничкиОтбравить SMS сообщение БЕСПЛАТНО |
Лабораторная работа по MicrosoftVisualBasic № 5 Проект «Рисование домика»
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 в программный модуль первой формы и, для того чтобы ее вызов мог производиться из программного модуля второй формы, сделаем эту процедуру глобальной.
|