Property Let берет переданное ей в виде аргумента значение и присваивает его переменной, представляющей свойство. В предыдущем примере это выглядело так:
Public Property Let Temperature(ByVal snglnput As Single)
sngDegrees = snglnput
End Property
Когда в основной части программы выполняется оператор, устанавливающий свойство, например
Ther most at.Temperature = 75
VBA вызывает процедуру Let Temperature со значением 75 для ее аргумента.
Ясно, что процедуры свойств не обязаны содержать лишь по одной строке программного кода. Можно добавить и другие операторы, например, проверяющие введенное значение на допустимость прежде, чем присвоить его свойству, или выполняющие какие-то иные действия.
Чтение свойств объекта с помощью процедур Property Get
Процедура Property Get подобна процедуре типа Function в том смысле, что она возвращает значение - конечно же, значение свойства, Как и в случае процедуры типа Function, значение, которое должно быть возвращено, присваивается имени процедуры, которое в данном случае оказывается именем свойства. Вот опять фрагмент предыдущего примера:
Public Property Get Temperaturef) As Single
Temperature = sngDegrees
End Property
Другие части вашей программы могут вызывать процедуру Get Temperature, чтобы присвоить возвращаемое этой процедурой значение переменной либо использовать это возвращаемое значение в условных операторах, как в следующем примере: sngCurrent Setting = Thermostat.Temperature
If Thermostat.Temperature > 80 Then
MsgBox "Рекомендуется снизить температуру!"
End If
Создание методов
Методы представляют собой обычные процедуры типов Sub и Function, которым выпало разместиться в модуле класса. Конечно, в большинстве случаев метод должен делать нечто, напрямую связанное с самим объектом, преобразуя данные, хранимые объектом. Но, при желании, в любой класс можно добавить и метод, рассчитывающий цены на прошлогодний снег.
VBA автоматически ассоциирует создаваемые вами методы с классами, в которые вы эти методы добавляете. Созданные вами методы можно вызывать из других частей программы точно так же, как и методы встроенных объектов.
Использование своих собственных объектов
Объекты, основанные на созданных вами классах, используются аналогично встроенным объектам VBA и объектам вашего приложения.
1. Объявите переменную для объекта, например:
Dim objCustomThermostat As Thermostat
2. Используйте оператор Set, чтобы создать реальный объект, с которым предполагается работать, например:
Set objCustomThermostat = New Thermostat
3. Получите доступ к свойствам объекта или вызовите его методы, используя при этом стандартный синтаксис VBA, например:
objCustomThermostat.Setting = 65
objCustomThermostat.CalculateEnergyUse
Использование элементов управления ActiveX
Вопреки сложившейся репутации программного империалиста, Microsoft стремится сделать свои средства разработки полностью "открытыми". Основываясь на спецификациях ActiveX, любой программист может создавать новые элементы управления, которые станут работать почти в любой программной среде, управляемой Windows, - включая C++, HTML, Visual Basic, а также VBA. Конечно, Microsoft определяет стандарты, которым должны соответствовать такие подключаемые программные единицы, так что от власти она ни в коей мере не отказывается.
В любом случае, в VBA можно добавить новые возможности, подключив дополнительные элементы управления ActiveX, не входящие в стандартный набор VBA. В одном проекте можно произвольно комбинировать элементы управления из разных источников. И все элементы управления ActiveX в основном работают так же, как и встроенные, которые, кстати, тоже являются элементами управления ActiveX.
В главе 21 приводится краткий обзор множества коммерческих и условно-бесплатных элементов управления ActiveX, которые помогут вам в работе. В настоящей главе обсуждаются общие приемы использования элементов управления ActiveX, а также даны некоторые советы об использовании элемента управления общим диалоговым окном (common dialog box control), предлагаемым Windows.
Некоторые элементы управления ActiveX правильно работают не в любой программной среде. Поэтому, прежде чем платить деньги за элемент управления, убедитесь, что он ведет себя в вашей версии VBA так, как обещает продавец. Вы должны также знать, что элементы управления ActiveX, созданные в Visual Basic, могут работать и ваших VBA-программах, но, вероятно, потребуют больших (около 2 Мбайт) файлов поддержки Visual Basic.
Добавление новых элементов в панель элементов управления
Чтобы получить возможность использовать элемент управления ActiveX, выполните следующее.
1. Установите программное обеспечение элемента управления на жесткий диск.
Мне кажется, это имеет смысл.
2. Зарегистрируйте элемент управления в Windows.
Зарегистрировать элемент управления можно несколькими способами, и, скорее всего, процедура установки сделает все за вас. Если же вам придется делать это самим, то работающему в VBA программисту проще всего использовать редактор Visual Basic.
3. Выберите элемент управления, чтобы активизировать его для использования в VBA.
Регистрация элемента управления
