их в требуемый вид. Приведем образец кода для передачи данных из формы Характеристика модели автомобиля в Microsoft Word:

oleWord=CREATEOBJECT( Word.Basic )

oleWord.FileNewDefault

oleWord.AppShow

oleWord.FilePageSetup( 2,54 см , 2,54 см , 2,5 см , 1,5 см , 0 см , 21 см , 29,7 см )

oleWord.FormatFont( 14 ,0,9,0,0,0,0,1,0, 0 пт , 0 пт ,0, , , Times New Roman Cyr , , 1)

oleWord.FormatParagraph( 0 см , 0 см , 0 пт , 0 пт , 0, ,1,1, 0, 0, 0, 0, 0, 0 , 0 см )

oleWord.Insert( Характеристика модели автомобиля )

oleWord.InsertPara

oleWord.InsertPara

*********Создание таблицы*************** oleWord.TableInsertTable( , 3 ,ALLT(STR(Kol z+1))) oleWord.TableSelectColumn && Выделение колонки oleWord.LeftPara && Выравнивание по левому краю oleWord.TableSelectTable && Выделение таблицы oleWord.TableRowHeight( 0 ,2, 25 пт , 0 см , 0,1) oleWord.TableSelectColumn && Выделение колонки oleWord.LineDown(1)

oleWord.LineUp(1)

oleWord.TableSelectColumn && Выделение колонки

oleWord.TableColumnWidth( 11 см , 0,38 см ) && Установка ширины выделенной колонки oleWord.NextCell

oleWord.NextCell

oleWord.TableSelectColumn && Выделение колонки oleWord.TableColumnWidth( 3,5 см , 0,38 см ) oleWord.NextCell oleWord.NextCell

oleWord.TableSelectColumn && Выделение колонки oleWord.TableColumnWidth( 3,5 см , 0,38 см ) oleWord.TableSelectTable && Выделение таблицы

oleWord.FormatBordersAndShading (3, 0, 2, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0 пт , 0, 0, 0, 0 , -1)

oleWord.CharRight(1) oleWord.LineUp(1)

oleWord.TableSelectRow && Выделение ряда

oleWord.TableHeadings

oleWord.Bold

oleWord.CenterPara

oleWord.FormatParagraph( , , , ,4, 25 пт )

oleWord.CharLeft(1)

oleWord.Insert( Наименование модели ) oleWord.NextCell oleWord.Insert( Мощность ) oleWord.NextCell

oleWord.Insert( Крутящий момент ) oleWord.NextCell

******* Добавления значений в таблицу******* FOR I = 1 TO KOL Z

oleWord.Insert(all value(i,1))

oleWord.NextCell

oleWord.Insert(STR(all value(i,2))) oleWord.NextCell

oleWord.Insert(STR(all value(i,3)))

IF I<<KOL Z

oleWord.NextCell ENDIF ENDFOR

Результат выполнения данного кода представлен на рис. 10.9.

IL li 1 I ai-3 I ti-5 ici-r I 0- oi 10-1 -I I IS-1 -с I 14- El 1С-1 л

uyxrtivicaiiiAM.jiv.ijaspjM.jLtimi

±

I :тр 1 I л-л 1

м- .-г.м i:- Р.г,л I -1411 [ТТЛ

Рис. 10.9. Пример передачи данных в Microsoft Word

Запись информации в Schedule+

Используя возможности OLE Automation и наличие в составе пакета Microsoft Office специальной программы для планирования - Schedule+, мы можем расширить возможности нашего приложения за счет включения в него функций бизнес-планирования.

Microsoft Schedule+ является средством бизнес-планирования, которое может использоваться в локальном режиме и в режиме совместного доступа. Программа Schedule+ является OLE-сервером, и поэтому мы можем использовать объекты этой программы для хранения, планирования и управления сведениями о встречах, собраниях, задачах, контактах и событиях. При планировании в расписание заносится оповещение, что позволяет не забыть о важной встрече, задаче или событии.

Организация объектов в Schedule+ несколько отличается от Excel или MS Graph. Здесь имеются два типа объектов: таблица и пункт. Каждая таблица состоит из определенного количества строк, которые и представляются пунктами. Каждый пункт имеет определенный набор свойств. Описанная структура приведена на рис. 10.10.

О&ъект типа msttnuua

Пунет 1

Объект типа пункт

Пун1ст2

Свойство 1

Свойство 2

ПуннгтЗ

Рис. 10.10. Структура объектов в Schedule+

В качестве объектов типа таблица рассматриваются основные функциональные возможности Schedule+. Это запланированные события (Appointments), записи о лицах (Contacts), предупреждения (Alarms) и т. д. В свою очередь каждое событие, запись и т. п. является объектом типа пункт и имеет набор свойств. Например, для того чтобы записать сведения о новом лице в Visual Basic, необходимо выполнить такую программу:

Sub NewContact()

Dim oSchedApp As Object, oSchedTable As Object, oSchedItem As Object

* Запускаем скрытую копию Schedule+

Set oSchedApp = CreateObject( SchedulePlus.Application )

* Проводим процедуру регистрации If Not oSchedApp.LoggedOn Then oSchedApp.LogOn

End If

* Устанавливаем ссылку на объект типа таблица.

* Свойство ScheduleLogged возвращает объект планирования для

* зарегистрированного пользователя.

Set oSchedTable = oSchedApp.ScheduleLogged.Contacs

* Устанавливаем ссылку на объект типа пункт (новый пункт в таблице) Set oSchedItem = oSchedTable.New

* Записываем в пункт данные с помощью его свойств oSchedItem.SetProperties FirstName:= Андрей , LastName:= Горев , Notes:= Эффективная работа с СУБД на основе решений Microsoft , PhoneBusiness:= (812)259-4277 , PhoneFax:= (812) 112-6872

Стираем ссылки на объекты Set oSchedItem = Nothing Set oSchedTable = Nothing Set oSchedApp = Nothing

End Sub

После выполнения этой программы откройте Schedule+, и вы увидите, что на вкладке Contacts появилась новая запись.

Совершенно аналогично можно записать в Schedule+ какое-либо планируемое событие. В этом случае дата и время начала и окончания планируемого события должны быть указаны обязательно.

Sub NewAppoint()

Dim oSchedApp As Object, oSchedTable As Object, oSchedItem As Object Set oSchedApp = CreateObject( SchedulePlus.Application ) If Not oSchedApp.LoggedOn Then oSchedApp.LogOn

End If

Устанавливаем ссылку на таблицу планируемых событий Set oSchedTable = oSchedApp.ScheduleLogged.Appointments Создаем новое событие, в котором хотим участвовать Set oSchedItem = oSchedTable.New Описываем это событие oScedItem.SetProperties Text:= DevCon97 ,

Notes:= Ежегодная международная конференция разработчиков Microsoft ,

Start:=( 06/10/97 10:00 ),

End:=( 06/13/97 18:00 ) Стираем ссылки на объекты Set oSchedItem = Nothing Set oSchedTable = Nothing Set oSchedApp = Nothing

End Sub

10.4. Применяем ActiveX

В этом параграфе на примерах иерархического списка и календаря мы опишем, как можно использовать элементы ActiveX в пользовательском приложении.

Иерархический список

Одним из поставляемых компонентов ActiveX (OCX) для средств разработки Microsoft является Outline. Необходимо сказать, что элемент управления Outline (файл MSOUTL32.OCX) представляет собой особую разновидность списка, в котором можно отображать элементы в иерархическом порядке. Этим пользуются при схематическом изображении каталогов и файлов в файловой системе. Именно такой метод применен в Windows 95 и Windows NT 4.0.

У каждого элемента в списке Outline могут быть подчиненные элементы, которые визуально