Иллюстрированный самоучитель по Outlook2002


Классы и объекты - часть 6


Программа 20.23. Встраивание классов

Dim author As New Person Private title As String

Public Sub booklnit (str As String, persObject As Person)

title = str

Set author = persObject End Sub

Public Sub bookPrint() Dim str As String

str = "Book title is " & title & Chr(13) & "Written by " & author.name

MsgBox(str) End Sub

Покажем использование объектов класса Book, изменив код программы 20.22 следующим образом:

Программа 20.24. Использование объектов встроенных классов

Sub ObjectExample()

Dim author As New Person

Dim bookObj As New Book

author.perslnit "Novikov", #10/10/1951#

Эта функция также возвращает ссылку на объект ActiveX. Только в этом случае в качестве параметров выступает путь, который указывает полный путь к файлу с объектом. Второй параметр при этом не обязателен.

В нижеприведенной программе мы открываем документ Word двумя разными функциями.

Программа 20.26. Открытие документа

Sub DocOpen1 ()

Dim docObj As Object

Set docObj = CreateObject ("Word.Application")

docObj.Visible = True

docObj.Documents. Add

БлокОператоров

docObj.Quit End Sub

Sub DocOpen2 ()

Dim docObj As Object

Set docObj = GetObject("d:\of200l\62\62.doc") End Sub

Выше мы рассмотрели вопросы объявления класса и использования его объектов вообще. Теперь же перейдем к изучению внутреннего устройства и организации класса более детально, а именно рассмотрим виды процедур класса и их работу со свойствами класса.

В VBA все процедуры класса делятся на три группы:

1. Процедуры-методы.

2. Процедуры-свойства.

3. Процедуры — реакции на событие.

Синтаксис объявления процедур-методов не отличается от стандартного, за исключением возможного использования ключевого слова Friend, о котором говорилось в разделе 20.4 "Структура программы". Настала пора детально рассмотреть возможность его употребления. Ключевое слово Friend, как и ключевые слова Private и Public, предназначено для ограничения области видимости метода.


Начало  Назад  Вперед



Книжный магазин