Спонсор: Microsoft
Опубликован: 04.07.2006 | Доступ: свободный | Студентов: 5447 / 624 | Оценка: 4.11 / 3.96 | Длительность: 11:08:00
Лекция 6:

Обмен данными

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

Программирование объектов обеспечивает приложениям возможность предоставлять свои объекты в распоряжение средств разработки и других приложений. 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.

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

  • создать ссылку на библиотеку объектов: Проект \to Ссылки \to 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
Работа с объектом - экземпляр приложения Word

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

Практическая работа 44. Использование объектов Excel и Access: результаты SQL-запроса передать средствами языка программирования для дальнейшей математической обработки в Excel

  1. Создать элементарный фрагмент базы данных, см. табл. 6.2 Подключить 3 библиотеки (для обеспечения работы с DAO, Access и Excel): Microsoft Excel 10.0 Object Library, Microsoft Access 10.0 Object Library, Microsoft DAO 3,51Object Library
    Таблица 6.2. Анализ прибыли, фрагмент
    Kode Lad Jan Febr SumGes Proz
    1 Lad1 256 381 0 0,00%
    2 Lad2 786 982 0 0,00%
    3 Lad3 528 436 0 0,00%
    4 Sum 0 0 0
  2. создать на форме (рис. 6.9) поле списка (Name = lst) свойству Microsoft присвоить значение, обеспечивающее возможность одновременной маркировки нескольких строк, 3 командных кнопки - cmd1 (Caption = Access), cmd2, Caption = Excel), cmdEnd, CommonDialog (Name = cdlg), cм. 6.2, (для обеспечения диалога с пользователем при передаче данных Access \to Exсel), см. код процедуры Private Sub cmd2_Click(). Элемент управления CommonDialog не виден на рис. 6.9, т.к. там изображена форма после старта проекта,
  3. ввести код, данный ниже, стартовать проект, сделать щелчок на кнопке Access - имена полей таблицы базы данных выводятся в поле списка lst, рис. 6.9,
  4. в поле lst (на рис. 6.9 - Fields) маркировать поля, которые нужно передать в приложение Excel для дальнейшей математической обработки; далее сделать щелчок на кнопке Excel,
  5. подтвердить желание сохранить файл: сделать щелчок на кнопке ОК в окне MsgBox, ввести имя файла - выводится сообщение о том, что данные Access сохранены на листе Exсel,
  6. открыть этот файл с данными, просмотреть таблицу, рис. 6.9, сделать щелчок на кнопке End проекта. Пояснения даны под комментариями к коду.
антонина квасова
антонина квасова
Владимир Муратов
Владимир Муратов

По курсу Visual Basic где же взять материалы для практических работ? 

Светлана Ведяева
Светлана Ведяева
Россия, Саратов
Оксана Пагина
Оксана Пагина
Россия, Москва