Объект управления ole Container
Наиболее простой способ использования OLE в вашем приложении - это применение элемента OLE Container или просто OLE. Чтобы вставить объект в приложение, надо всего лишь поместить в соответствующую форму элемент управления OLE. После добавления элемента управления OLE в форму отображается диалоговое окно вставки OLE – объекта.
С помощью этого окна можно создать новый объект или создать его из файла, указав будет ли это связанный или внедренный объект. После того как вся необходимая информация будет указана, запустите приложение данного объекта.
Как и любой объект в VB объекты OLE имеют свойства, большинство из которых аналогичны ранее изученным. Следует запомнить, что старое доброе свойство Action (действия, оно на панеле свойств в новой версии не приводится), хотя и сохранилось в языке, но лишь по соображениям совместимости со старыми версиями. В VB 6.0 различные действия свойства Action реализованы как самостоятельные методы., которые приведены в таблице 17.1.
Таблица 17.1
Методы объекта OLE Container
Действия |
Значение свойства Action |
Название метода |
Создает внедренный объект |
0 |
CreateEmbed |
Создает связанный объект |
1 |
CreateLink |
Копирует объект в буфер обмена |
4 |
Copy |
Вставляет объект из буфера обмена |
5 |
Paste |
Восстанавливает текущие данные связанного объекта |
6 |
Update |
Открывает объект для определенной операции (например, для редактирования текста) |
7 |
DoVerb |
Закрывает объект |
9 |
Close |
Удаляет содержащийся в контейнере объект |
10 |
Delete |
Сохраняет объект в файле |
11 |
SaveToFile |
Загружает объект из файла |
12 |
ReadFromFile |
Отображает диалоговое окно Insert Object |
14 |
InsertObjDlg |
Отображает диалоговое окно Past Special |
15 |
PasteSpecialDlg |
Сохраняет объект в формате OLE 1.0 |
18 |
SaveToOlelFile |
Большинство действий элемента OLE Container можно превосходно выполнить в диалоговом режиме на этапе разработке. Но все же следует привести некоторые примере, чтобы показать, как это происходит в коде программы.
Создание внедренного объекта осуществляет метод CreateEmbed.
Синтаксис обращения: CreateEmbed sourceDoc, class
При вызове этого метода достаточно указать имя класса внедряемого объекта.
OLE1. CreateEmbed “ “, “Wopd.Document.8”
Для связанного объекта надо указать источник данных, т.е. имя файла.
CreateLink sourceDoc, sourceItem
Кроме того , параметр должен содержать ссылку на область в объекте, напаример, на необходимые ячейки:
OLE1. CreateLink “D:\ EXCEL\ TERMIN.XLS”, “C1R1”
Сохранение объекта не только возможно, но даже необходимо, чтобы при следующем запуске приложения в контейнере находится тот же объект. Сохранение данных в двоичном формате применимо к внедренным объектам, так как связанные объекты сохраняются источником:
Пример:
fh = FreeFile
Open “C:\DATE.OLE” For Sinary As fh
OLE1.SaveToFile fh
Close # fh
Загруска объектов производится аналогичным образом при помощи метода ReadFormFile.
Объекты OLE как элементы управления
Вместо использования элемента управления OLE Container VB позволяет добавить любой объект, обладающий OLE – возможностями, вывести его на панель инструментов и использовать как элемент управления. Для добавления таких элементов управления следует выполнить команду Components меню Project. а затем во вкладке Insetable Object диалогового окна Components выбрать все необходимые объекты. После добавления объекта его значек появится на панели инструментов, с помощью которой объект может быть помещен в форму как обычный элемент управления.