Практическая работа 49. Работа с классом

Создание компонентов класса, создание экземпляра класса рассматривается на примере проекта, дающего справку (минимальные данные, служащие для демонстрации) желающим провести отпуск за границей. Пользователь должен сделать щелчок на соответствующем элементе массива OptionButton, если он хочет быть в отпуске за границей; далее в списке ComboBox выбрать страну, после чего выводится список городов, где можно провести отпуск и соответствующая стоимость, рис. 8.1

В данном случае создаeтся класс с 4 свойствами и 3 методами. Далее на основе класса создаeтся объект:

Dim object As Class1Set object = New Class1

Созданный объект нужно после работы удалить из памяти: см. код процедуры Form_Unload().

Последовательность действий:

1. в стандартный проект добавить модуль класса: контекстное меню Окна проекта Добавить Модуль класса,

2. ввести код в область модуля класса, см. ниже; пояснения даны под комментариями. Инициализация свойств класса проводится в процедуре Class_Initialize (),

3. создать методы класса. Три метода создаются в процедурах: Public Function Met1(), Public Function Met2() и Public Function Met3 (). Ввести этот код, пояснения даны под комментариями к коду,

4. создать требуемые объекты на форме (см. код и рис. 8.1), ввести код в область (General) (Declarations) формы, код процедурыForm_Load () и код процедуры Command1_Click (), стартовать проект, проверить его работу.