Property Ge me( ) As String

Name = FName End Property

Property Let Name ( ByVal Value As String }

FName = Value End Property

2. Наберите код класса tream в окн ктора. Постройте тестовую процедуру, которая в целях проверки корректности кода класса должна запис1вать в файл строку текста, возвращать указатель в начало файла и счит1вать ту же строку.

Sub TestFileStream( )

Const TEXT = Это тест

Dim Stream As New FileStream

Call Stream.OpenStream( Test.txt )

Call Stream.WriteStream( TEXT }

Stream.Position = Stream.Position - Len{ TEXT )

Dim V As String

Call Stream.ReadStream( V, Len( TEXT ) ) MsgBox V

Call Stream. CloseStream

Set Stream = Nothing

End Sub

3. Примените о&ьект Scripting. FileSystemObject для чтения файла с данными, сохраненн1ми при в1полнении пред1дущего упражнения.

Выберите в строке меню окна редактора Microsoft Visual Basic команду Tools* References, установите флажок Microsoft Scripting Runtime списка библиотек диалогового окна References и щелкните на кнопке ОК. Затем введите следующий код: Sub TestScriptingObject ( )

Dim FileSystemObject As New Scripting.FileSystemObject

Dim File As Scripting.TextStream

Set File = FileSystemObject.OpenTextFile(

Test.txt , ForReading, True ) MsgBox File.ReadLine File.Close Set File = Nothing Set FileSystemObject = Nothing End Sub

22-й час. Совершенствование типов данных

Тесты

1. В чем заключаются преимущества агрегации кода?

Если коротко, вы основ1ваете новые решения на существующих, проверенн1х и надежн1х.

2. Сколько атрибутов внешнего интерфейса целесообразно определить при создании нового класса?

Во многих случаях целесообразно ограничить членов внешнего интер-

фейса десятком или даже менее. Чем больше ьггых атрибутов, тем более труд-н1м становится восприятие и использование класса и тем меньшей - вероятность его повторного использования.

3. Как отличить атрибуты внешнего интерфейса класса от остальных?

Члены внешнего интерфейса класса снабжаются квалификатором Public.

4. Назовите стандартные процедуры, которые вызываются при создании объекта класса и его уничтожении.

Class lnitialize и Class Terminate соответственно.

Упражнения

1. Добавьте в состав класса strings атрибут Text, позволяющий возвратить содержимое всех элементов коллекции в виде единой строки, в которой частные значения разделяются константой vbNewLine.

Public Property Get Text ( ) As String Dim l As lnteger For I = 1 To FStrings.Count

Fext = Text & FStrings ( I } & vbNewLine

Next l

End Property

2. Добавьте в интерфейс класса Strings Property-метод Let Text, который дает возможность расчленить общую строку Text на отдельные сегменты и сохранить их в элементах коллекции.

Public Property Let Text( ByVal Value As String ) Clear

Call ParseStrings( Value ) End Property

3. Дополните текст методов ReadFromFile и WriteToFile класса Strings таким образом, чтобы обеспечить поддержку свойства Text (см. предыдущие упражнения).

Public Sub ReadFromFile( ByVal FileName As String ) Clear

Dim F As New FileStream

Call F.OpenStream( FileName )

Dim S As String

Call F.ReadStream( S, F.Count )

Text = S

Call F.CloseStream

Set F = Nothing

End Sub

Public Sub WriteToFile < ByVal FileName As String )

Dim F As New FileStream

Call F.OpenStreamt FileName ) Call F.WriteStream{ Text ) Call F.CloseStream

Set F = Nothing End Sub

23-й час. Надстройки Access Тесты

1. с какой пелью файлы баз данных надстроек Access обозначаются расширением имени .MDA?

Речь идет о соглашении, принятом с целью различать файлы надстроек и обычнтх

баз данных Access.

2. Как называется таблица, которую необходимо создать в базе данных надстройки для обеспечения возможности ее регистрации?

USysReglnfo.

3. Методы Property могу пъ созданы в обычном, не классовом , модуле. Верно

ли это? Верно.

4. Использование квалификаторов Public и Private допустимо в пределах обычного

модуля. Верно ли это? Верно.

5. Что означает константа IACCDIR?

Указанная константа служит для сс]лки на стандартную папку, предназначенную для хранения надстроек Access. Если установка Windows проводилась в режиме, предлагаемом по умолчанию, полный путь к упомянутой папке c:\Windows\ Application таков - Data\Microsoft\AddIns.

Упражнения

1. Создайте условную конструкцию, которая проверяет факт существования таблицы

LOG и в случае необходимости вызывает процедуру CreateTable.

If (TableExists! LOG ) = False) Then

Call CreateTable! LOG QUERY ) End If

2. Приведите вражение для тестирования процедуры WriteEntry.

Call WriteEntry(О, Module , Test , Helpfile.hip , 0, admin )

3. Создайте пустую базу данных, определите ссылку на базу и вызовите процедуру WriteEntry. Будет ли в результате этого обращения построена таблица LOG? Да. При выполнении строки 20 листинга 23.3 будет вызван метод CreateTable.

24-й час ление информацией о контактах Outlook

Тесты

1. Как называется объект верхнего уровня, предоставляющий средства доступа к папкам Outlook?

NameSpace.

2. Какая из разновидностей (пока единственная) объектов NameSpace существует в

настоящее время? MAPI.

3. Назовите тип универсального объекта для хранения коллекций сообщений всех

видов.

MAPIFolder.

4. Как называется метод, позволяющий перемещать документы Outlook из одной папки (коллекции) в другую?

Move.