Объявление DLL в стандартном модуле
Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Работу этой функции продемонстрировать нажатием кнопки Директория Windows, создав следующую процедуру обработки события Click этой кнопки:
Private Sub CommandButton2_Click()
Dim ReturnSize As Long
WinDir = String(255, 0) 'Заполнение строки нулем
' Вызов API для получения каталога Windows и фиксация
' размера возвращаемой строки
ReturnSize = GetWindowsdirectory(lpBuffer:=WinDir, _
nSize:=Len(WinDir))
' Усечь строку до правильного размера
WinDir = Left(WinDir, ReturnSize)
MsgBox “Директория Windows: “ & WinDir
MsgBox «Сегодня на календаре» & Date
‘End Sub
Продемонстрируйте результаты работы преподавателю и завершите работу программы Word.
Продолжительность:
160 мин.
Дисциплина:
Информационные технологии проектирования РЭС
Системное ПО САПР
Предназначено:
Для студентов по направлению информатика и ВТ в соответствии с учебным планом.
Цель:
Научить пользователя использовать связанные данные. Научить студентаиспользовать различные средстваавтоматизации создания приложений
Результат обучения:
После успешного завершения занятия пользователь должен:
· уметь применять технологии OLE для обмена данными между приложениями.
· уметь создавать макросы;
· уметь документировать и запускать макросы разными способами.
Используемые программы:
Windows, MSWord 97, MSExcel 97.
Используемые файлы:
К занятию 5 текст1.doc, К занятию 5 текст2.doc, К занятию 5 текст3.doc,
К занятию 5 таблица.xls, К занятию 5 Рис.bmp, К занятию 5 сам_таблица_1.xls,
К занятию 5 сам_таблица_2.xls, К занятию 5 сам_текст.doc.
План занятия:
Часть I. Применение технологии OLE для обмена данными между приложениями.
I. Работа под руководством преподавателя. 50 минут
Использование связанных данных.
Часть II.Автоматизация создания приложений в интегрированной среде.
I.Работа под руководством преподавателя. 60 минут
Создание макроса.
II.Самостоятельная работа. 20 минут
ЗАПУСК ПРОГРАММЫ:
Предполагается, что требуемые программы уже установлены на диске.
(См. «Инструкцию по установке программы на ПК»)
Часть I. Применение технологии OLE для обмена данными между приложениями.
Рекомендуемое время
80 минут
I. Использование связанных данных.
Рекомендуемое время
50 минут
1.1. Использование связанных данных.
ТехнологияOLE(Object Linking and Embedding) - связывание и внедрение объектов) позволяет например, устанавливать взаимосвязь между данными рабочих листов MicrosoftExcel и другими программами.
1.1.1. Создание рабочей папки.
1. Создайте на рабочем столе папку Занятие_5.
2. Скопируйте в нее файлы К занятию 5 текст1, К занятию 5 текст2, К занятию 5 текст3, К занятию 5 таблица, К занятию 5 Рис, расположенные 0199\ПТ_199_03. Дальнейшую работу проводите с файлами из этой папки.
1.1.2. Связывание двух документов Word.
1. Запустите программу MicrosoftWord.
2. Откройте файл К занятию 5 текст1 из папки Занятие_5. Нажмите комбинацию клавиш <Ctrl+End> и клавишу <Enter>.
3. На новой строке наберите следующий текст: Этот документ является документом – источником.
4. Скопируйте первую строку текста в буфер обмена.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.