назад | содержание | вперед

Создание собственных классов

Для создания классов используются команды Add Class Module (Добавить модуль класса) или Add User Control (Добавить пользовательский элемент управления), если это класс элементов управления, меню Project (Проект). Для изучения возможностей создания классов создадим класс подразделений некой фирмы со следующими атрибутами:

• Шифр подразделения
• Наименование подразделения
• Шифр вышестоящего подразделения
• Руководитель подразделения
• Фонд заработной платы подразделения
• Премиальный фонд подразделения

Для создания такого класса выполните следующие действия:

1. Создайте новый проект типа Standard EXE и назовите его MyClass при помощи страницы свойств проекта, вызываемой командой Project1 Properties меню Project (Проект).

2. Форму приложения Fonn1, создаваемую в проекте автоматически, переименуйте В frmMyClass.

3. Командой Add Class Module меню Project (Проект) добавьте в проект новый модуль класса. В окне проводника проекта появится группа Class Modules.

4. Используя свойство Name окна Properties (Свойства), вызываемого командой Properties Window (Окно свойств) меню View (Вид), присвойте классу

ИМЯ cIsDepartment (рис. 15.1).

5. Теперь, чтобы определить объект данного класса, необходимо в окне редактора формы или модуля ввести следующий код:

Dim objDep As New cIsDepartment

или

Dim objDep As Object

Set objDep = New cIsDepartment

Рис: 15.1. Проект MyClass с вновь созданным классом cIsDepartment

назад | содержание | вперед

Поделитесь этой записью или добавьте в закладки