Разработка пользовательского приложения с помощью объектов: полоса прокрутки, счетчик
Цель: приобретение навыков разработки пользовательского приложения с помощью объектов формы - полоса прокрутки, счетчик. Индивидуальные варианты лабораторной работы № 11 выполняются в соответствии с индивидуальными вариантами лабораторной работы № 4 (2 часа).
3.5 Интеграция приложений: ms Excel и ms Word
3.5.1 Открытие документа ms Word функцией Create Object
1. Для открытия документа MS Word необходимо создать форму, в которой расположить командную кнопку, установить значение ее свойства Name, а в модуле формы набрать код программы, изображенный на
рисунке 45.
2. Создать документ MS Word с названием Пример.doc и расположить в рабочем каталоге проекта.
3. Перед выполнением программы надо установить ссылку на библиотеку объектов MS Word 9.0 Object Library в окне References – VBAProject, отображаемом на экране выбором команды Tools/References в редакторе VB.
4. С помощью программного кода первоначально проверяется наличие файла Пример.doc в рабочем каталоге приложения. Если файл присутствует, то с помощью функции CreateObject запускается еще один экземпляр MS Word, даже если MS Word уже был запущен, и в нем открывается файл.
5. После открытия файла на экране отображается диалоговое окно с сообщением «Закрыть документ?». Нажатие кнопки ОК на этом окне приведет как к закрытию окна, так и созданного экземпляра Word с загруженным файлом. Нажатие кнопки Нет оставит документ открытым.
Рисунок 45 – Программный код
3.5.2 Открытие документа ms Word функцией GetObject
Использование функции GetObject, позволяющей открывать существующий документ MS Word, подобно использованию функции CreateObject (рисунок 46).
Функцию GetObject следует использовать для доступа к существующим документам, хранящимся в файлах.
Функцию GetObject можно применить для доступа к объекту Application, предварительно запущенного приложения MS Office MS Word. Для этого надо вызвать функцию GetObject без первого параметра.
Этот способ доступа к объекту Application любого уже запущенного приложения MS Office применяется, когда нет необходимости в запуске еще одного экземпляра приложения, что происходит при работе функции CreateObject.
Рисунок 46 – Программный код
Пример экономической задачи.
Постановка задачи. Создать квитанцию об оплате услуг за использование Internet, которая автоматизировано будет заполняться с помощью приложения MS Excel.
Технология выполнения задания:
1. Создать новый документ MS Word с названием «Квитанция.doc», как показано на рисунке 47, и сохранить в рабочем каталоге будущего проекта.
2. В нем расположить три поля ввода для ввода UID, фамилии пользователя, суммы предоплаты по следующему алгоритму:
- расположить курсор в ячейке таблицы рядом со словом UID пользователя;
- в управляющем меню выбрать команду Вид→Панели инструментов→Элементы управления;
- активизировать на панели инструментов «Элементы управления» кнопку Поле ввода;
- установить соответствующий размер этого поля.
Рисунок 47 – Квитанция об оплате услуг в Internet
Аналогично проделать с двумя остальными полями ввода.
3. Конструирование проекта. Создать форму, как показано
на рисунке 48. Расположить в форме три надписи, три поля ввода и две командные кнопки.
Рисунок 48– Окно приложения «Создание квитанции»
4. Установить при помощи окна Properties следующие значения свойств, как показано в таблице 41.
Таблица 41 – Свойства элементов управления
Элемент управления |
Свойство |
Значение |
Форма |
Caption |
Создание квитанции |
Надпись |
Caption |
UID |
Надпись |
Caption |
Ф.И.О. |
Надпись |
Caption |
р. |
Поле ввода |
Name |
TextBox1 |
Поле ввода |
Name |
TextBox2 |
Поле ввода |
Name |
TextBox3 |
Кнопка |
Name Caption |
CommandButton1 Заполнить квитанцию |
Кнопка |
Name Caption |
CommandButton1 Закрыть |
Рисунок 49 –Программный код к приложению «Создание квитанции»
5. Установить ссылку на библиотеку объектов MS Word 9.0
Object Library.
6. В модуле формы набрать следующий код, представленный
на рисунке 49.
7. Запустить проект.
Примечание. На экране появится документ MS Word Квитанция.doc. Его необходимо свернуть на панель задач и в окне приложения «Создание квитанции» заполнить соответствующие поля, выполнить команду «Заполнить квитанцию». Затем осуществить переход в документ MS Word Квитанция.doc и просмотреть результат выполненных действий. В приложении выполнить команду «Закрыть».
Лабораторная работа № 12