1.1. Добавление в класс свойств.
Простейший путь создания свойств - применение глобальных переменных при помещении их в раздел объявлений модуля класса.
В модуле класса cls1: Public Prop1 As String
В форме: Dim a as new cls1
a.Prop1="1"
Однако, у такого метода существует недостаток - при присвоении им значений невозможно выполнить проверку на корректность, или какой-либо другой код. При таком задании свойств, класс ничем не будет отличаться от UDT (типа, заданного пользователем). Поэтому наиболее предпочтительным является второй способ, который заключается в использовании процедур свойств. Это позволяет выполнить некий программный код на этапе присвоения.
Для этого проще всего использовать Class Builder - мастер, встроенный в среду разработки Visual Basic, позволяющий вам легко задать методы, свойства и события класса.
Открыть его можно следующим образом - Project/Add Class Module/VB Class Builder. После выбора появится окно Class Builder'а.
Используя меню File/New/Class или кнопку Add New Class на панели инструментов Class Builder'а, добавьте новый класс к проекту. Для этого необходимо указать имя класса, в списке Based On можно указать имя класса, на котором основан создаваемый класс. На вкладке Attributes можно задать описание модуля класса (комментарий), а также имя справочного файла для данного класса.
После этого используя File/New/Property, Method или Event можно легко добавить свойство, метод или событие к созданному классу. Также можно использовать дублирующие кнопки на панели инструментов.
При создании свойства вам предлагается задать для него имя, тип, область видимости, а также задать, является ли данное свойство свойством класса по умолчанию. Помимо этого свойство может принадлежать к одному из трех видов:
v Public Property (Let, Get, Set) - создается Private переменная заданного типа и для нее оформляется Public свойство с доступом через Get, Let или Set.
? Let - процедура, которая присваивает значения свойству. Устанавливает свойства для обычной Private-переменной, т.е. при присваивании этому свойству какого-либо значения выполняется программный код, в котором по умолчанию переданное значение просто присваивается Private-переменной. Использование ключевого слова Let обязательно, так как в этом случае оно указывает, что данная процедура является процедурой задания значения свойства.
? Get - процедура, которая позволяет получить свойства как для объекта, так и для обычной переменной. Процедура считывания значения свойства.
? Set - процедура, которая устанавливает значение для какого-либо объекта. Процедура Set используется аналогично Let, но передает не значение свойства, а ссылку на объект.
Однако в коде этих процедур Let, Get, Set возможно написать более сложную обработку или проверку.
v Friend Property (Let, Get, Set) - создает свойство, «дружественное» другим объектам классов проекта. Это свойство могут использовать только другие классы этого проекта.
v Public Variable - просто создает Public переменную без создания методов Let, Get или Set для нее.
v Default Property - свойство по умолчанию. (У Label - Caption, у TextBox - Text). Каждый элемент управления имеет такое свойство, которое всегда используется Visual Basic, если имя свойства в коде явно не указано.
Textl = "Hello" '(равнозначно Textl.Text = "Hello")
Создайте какое-нибудь свойство Public Property (Let, Get, Set). Закройте Class Builder, на вопрос «Update...» ответьте «Да».
В браузере проекта появится новая папка Class Modules и в ней ваш только что созданный модуль класса. Откройте этот модуль класса двойным кликом на имени.
В модуле класса вы увидите объявление вашего свойства и два специальных метода - Let и Get. Вы можете легко изменить код этих процедур для получения тех или иных эффектов. Использование этих процедур позволяет реализовать инкапсуляцию в классах VB.