Стив Каммингс - VBA для чайников

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

Вопреки сложившейся репутации программного империалиста, 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.

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

1. Выберите Tools=References, чтобы открыть диалоговое окно со списком ссылок на элементы управления ActiveX, доступные для вашего проекта.

2. Щелкните на кнопке Browse (Обзор), чтобы открыть стандартное диалоговое окно Windows для открытия файлов. Из списка в поле Тип файлов выберите ActiveX Controls (*.ocx).

3. Найдите файл с новым элементом управления и двойным щелчком на файле откройте его. Открытие файла вернет вас в диалоговое окно References.

4. Найдите имя нового элемента управления в списке диалогового окна References и установите отметку соответствующего флажка.

5. Закройте диалоговое окно.

Зарегистрировав новый элемент управления, активизируйте его, поместив элемент управления в панель элементов управления (Toolbox). Вот как это сделать.

1. Активизируйте любое окно UserForm в редакторе Visual Basic, чтобы на экране появилась панель Toolbox.

2. Выберите ToolsoAdditional Controls из меню либо щелкните правой кнопкой мыши в панели Toolbox и выберите Additional Controls (Дополнительные элементы управления) из появившегося контекстного меню.

3. В списке доступных элементов управления найдите тот, который хотите активизировать, и установите соответствующий флажок.

4. Закройте диалоговое окно.

Пиктограмма только что активизированного вами элемента управления должна появиться в панели Toolbox. На рис. 20.2 показана панель Toolbox, в которую добавили немало новых элементов управления.

Рис. 17.2. Панель Toolbox с целым ворохом дополнительных элементов управления ActiveX

Если вы используете очень много дополнительных элементов управления, разместите их на дополнительных страницах в панели Toolbox. Чтобы добавить новые страницы в панель Toolbox, щелкните правой кнопкой мыши на ярлыке вверху вкладки и в появившемся меню выберите New Page (Новая страница), точно так же, как в случае элемента управления формой с множеством страниц.

Добавив элемент управления ActiveX в панель Toolbox, вы можете добавлять его в свои формы точно так же, как стандартные элементы управления VBA. Правда, чтобы заставить элемент управления делать что-нибудь полезное, нужно знать, как работают его свойства и методы. Для этого вам понадобится документация и файлы справки, входящие в комплект поставки элемента управления. Если элемент управления спроектирован и установлен правильно, вы получите справку о любом из его свойств, нажав , когда нужное свойство выделено в окне свойств.