Программирование объектов; продолжение

Date: 2015-10-07; view: 399.

Программирование объектов обеспечивает приложениям возможность предоставлять свои объекты в распоряжение средств разработки и других приложений. Visul Basic позволяет проводить работу с объектами с помощью их (объектов) методов или установки/чтения их свойств, например:

seinObjekt.Bold = True ' форматировать текст

seinObjekt.SaveAs = "A:\txt.doc" ' сохранить текст

при этом программируемый объект seinObjekt был заранее создан.

Visual Basic позволяет создавать новые объекты и работать с имеющимися в приложениях Microsoft. ФункцииCreateObject/GetObject используются для создания нового объекта/получения существующего из другого приложения. Ключевое слово New используется для создания объекта некоторого класса, примеры:

Set ExcelWorksheet = GetObject("SHEET5.XLS") - стартовать Excel и открыть лист уже существующий, Dim x As New Field - описание нового объекта.

Приложения Microsoft предоставляют в распоряжение сотни объектов. Object Browser позволяет просмотреть их свойства, методы и события; можно получить также их краткое описание, выполнить поиск. При использовании в проекте объектов из другого приложения нужно сделать ссылку на библиотеку типов этого приложения.

Практическая работа 43. Работа с объектом - экземпляр приложения Word: создание файла, запись текста и т.д.

Задание: создать программно экземпляр приложения Word; создать файл, ввести тест, сохранить файл. После создания объектной переменной этого типа с использованием свойств и методов объекта пользователь получает доступ к многим функциям Word.

Последовательность действий:

· создать ссылку на библиотеку объектов: Проект Ссылки Microsoft Word Object Library,

· cоздать на форме командную кнопку (Name = cmd1) и текстовое поле (Name = txt1),

· ввести код, данный ниже, пояснения даны под комментариями к коду, стартовать проект,

· ввести в текстовое поле текст, сделать щелчок на командной кнопке,

· для проверки работы проекта стартовать приложение Word, рис. 6.8

Private Sub cmd1_Click()

Dim str As String ' описание переменной для работы с текстом

' с использованием ключевого слова New создать объектную

' переменную (ссылка проводится на объект Word.Application -

' экземпляр приложения Word)

Dim edi As New Word.Application

' присвоить переменной значение: текст,

' вводимый в текстовое ' поле

str = txt1.Text

' создать новый документ Word (Documents - дочерний

' объект по отношению к объекту Word.Application)

edi.Documents.Add

' вставить в документ Word (метод Type) текст из

' текстового поля

edi.Selection.Type Text (str)

' cохранить документ

edi.ActiveDocument.SaveAs FileName:="A:\nnn.doc"

' закрыть документ

edi.ActiveDocument.Close

edi.Application.Quit ' закрыть приложение

Set edi = Nothing ' очистить объектную переменную

End Sub

Рис. 6.8.Работа с объектом - экземпляр приложения Word