Шаг 6 - Использование Class Builder для создания свойств

Во-первых, где его найти ? Он есть в меню Add-Ins:

gif/6_1.gif (971 b)

При выборе этого пункта меню появится окно дополнений к VB, в числе которых есть и Class Builder, что в переводе "строитель классов".

gif/6_2.gif (8876 b)

Здесь можно настроить его вызов из меню, допустим, вместе с запуском VB. Для этого надо поставить галочку напротив опции Load on Startup. Если Вы хотите его запустить прямо сейчас, то поставьте галочку рядом с Loaded/Unloaded и нажмите OK. Теперь в меню Add-Ins будет пункт с этим инструментом.

gif/6_3.gif (1759 b)

В нем очень удобно добавлять свойства. На панели инструментов есть специальная кнопка:

gif/6_4.gif (3494 b)

После ее нажатия появится окно настройки, здесь нужно выбрать каким способом будут создаваться свойства.

gif/6_5.gif (3596 b)

Для того, чтобы эмитировать то, что мы делали руками нам нужно ввести имя, потом тип и выбрать Public Property, то есть публичные свойства. Там есть и всякие другие, но мы же пока о них не знаем. В результате в окне Вы увидите новое свойство.

gif/6_6.gif (3929 b)

При попытке закрыть окно у Вас спросят нужно ли обновлять проект. Конечно нужно, иначе зачем все это затевалось. А в модуле класса Вы увидите практически тот же код, что мы создавали руками.

'local variable(s) to hold property value(s)
Private mvarNames As String 'local copy
Public Property Let Names(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Names = 5
    mvarNames = vData
End Property

Public Property Get Names() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Names
    Names = mvarNames
End Property

Очень удобно в плане того, что свойства будут создаваться легко.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 26.08.2001