Программа 15. Использование OLE - объектов для запуска приложений.

Одна из важнейших особенностей Visual Basic – это его способность работать с другими приложениями. OLE-объект позволяет запускать приложения для Windows из приложения Visual Basic. Рассмотрим, как работает OLE-объект, и как он может быть использован (без программного кода) для создания приложения "Примерная оценка", который запускает документы Word, Excel и Paint. Внешний вид готовой программы на рис.21.

В меню Файл выбрать Новый проект, создать стандартный .ехе-файл. Появится новая форма. Создать 1-ю этикетку (Label1), в свойствах в Caption набрать "Примерная оценка". Создать 2-ю этикетку (Label2), в свойствах в Caption набрать "Word, Excel, Paint".

Рис.21.

Создать еще три этикетки (Label3, Label4, Label5) с надписями в Caption "Смета", "Калькуляция", "Диаграмма". Эти этикетки будут использоваться для идентификации OLE-объектов.

Щелкните на кнопке OLE в панели инструментов. Под этикеткой "Смета" создать прямоугольник с помощью кнопки управления OLE. Когда опустите кнопку мыши, Visual Basic откроет диалоговое окно Insert Objeсt (Вставка объекта), одержащее список объектов-приложений, которые можно использовать в нашей программе. Прокрутите вниз список объектов и щелкните на объекте Microsoft Word Document. Щелкнуть на контрольном блоке Display As Icon (Показать в виде пиктограммы) в диалоговом окне Insert Objeсt так, чтобы приложение появилось в вашей Visual Basic-программе в виде значка. Щелкните на ОК, чтобы закрыть диалоговое окно Insert Objeсt и открыть Word. Он откроет чистую форму текстового документа, введите сведения о компании, имена, цены, материалы и пр. Используйте команду Date and time (Дата и время) в меню Insert (Вставка) для добавления даты и времени в документ. В меню File (Файл) программы Word выполните команду Exit (Выход).

Трехмерность OLE-объекта управляется свойством Appearance (Вид), имеющим установки 3D и Flat (Плоский). Установить свойство Appearance каждого OLE-объекта как Flat, свойство BackColor (Цвет фона) в палитре светло-серый.

Аналогично документу Word, добавить на форму объект Microsoft Excel и битовый рисунок Paint. Также выбрать в контрольном блоке Display As Icon (Показать в виде пиктограммы) в диалоговом окне Insert Objeсt. На рабочем листе Microsoft Excel представить информацию о материале, ценах, количестве, качестве работы. В Paint нарисовать произвольный рисунок – диаграмму. В нижней части формы поместить командную кнопку Quit (Выход). Дважды щелкнув на этом объекте набрать утверждение End в процедуре Command1_Click.

Установите следующие свойства для объектов.

Запустите программу, убедитесь, как она работает. Добавьте в эту форму элементы Microsoft Eqution, Microsoft WordArt или других приложений.

Программа 16. "Калькулятор"

Эта программа демонстрирует действия операторов сложения, вычитания, умножения и деления над числами, вводимыми с клавиатуры. Она показывает, как использовать текстовые поля, кнопки выбора и командные кнопки для ввода данных. Внешний вид программы "Калькулятор" приведен на рис.22.

Создать Метку1 (Label1), в свойствах в Caption набрать – Variable1; cоздать Метку2 (Label2), в свойствах Caption – Variable2. Под Меткой1 и Меткой2, выбрав в инструментах Текст, создать 2 текстовых прямоугольника (Text1, Text2).

Рис.22.

Для создания блока Operator необходимо выбрать на панели инструментов Frame (Рамка) и определить размер Рамки на 1/3 формы. Для создания кнопок выбора на панели инструментов выбрать Option Button, в свойствах Caption ввести надпись Addition(+), далее создать еще 3 кнопки выбора и в свойствах Caption ввести надписи – Sutraction(-), Multiplication(*), Division(/).

Добавить еще Метку3 (Label3) с надписью в свойствах Result, Метку4 (Label4) для вывода результата без надписи в свойствах Caption. И, наконец, 2 командных кнопки на панели инструментов Command Button – Calculate и Quit. Чтобы ввести командный код для Command1 необходимо дважды щелкнуть на этой кнопке. Командный код для этих кнопок приведен ниже:

Private Sub Command1_Click()
Dim First, Second
First = Val(Text1.Text)
Second = Val(Text2.Text)
If Option1.Value = True Then
Label4.Caption = First + Second
End If
If Option2.Value = True Then
Label4.Caption = First - Second
End If
If Option3.Value = True Then
Label4.Caption = First * Second
End If
If Option4.Value = True Then
Label4.Caption = First / Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub

В этой программе объявлены массивы с именами First, Second. Это 2 переменные общего использования типа Вариант. Данные текстовых полей преобразуют в числа с помощью функции Val. Используется условный оператор If: если свойство Value (Значение) первой кнопки выбора установлено в True (Истина), Then (Тогда) переменные суммируются, а результат присваивается объекту Метка4. В трех остальных формулах используется тот же принцип: в каждой из них применяется структура If…Then и свойство Caption (надпись) объекта Label4 (Поле метки).

Вторая команда (Quit) закрывает работу программы:

Private Sub Command1_Click()
End
End Sub

Запустить готовую программу. Используя эту программу, добавить в нее опции: целая часть от деления (Integer Division) – (\), остаток от деления (Remainder) – Моd, возведение в степень (Exponentiation) – ^, слияние (Concatenation) – &.

Список использованной литературы.

1. Halvorson M., Microsoft Visual Basic 5. / Пер. с англ. -М.: Изд-во ЭКОМ, 1998.
2. Назаров С.В., Мельников П.П. Программирование на MS Visual Basic. -М.: Финансы и статистика, 2001.
3. Рашел Д. Visual Basic. Net. Справочник программиста. -М., 2000.
4. Браун С. Visual Basic 6: учебный курс. / Пер. с англ. - СПб.: Питер, 2001.
5. Гетц К., Гилберт. Программирование на Visual Basic в VBA. –Киев: Ирена, 2001.
6. Витенко О., Яковлев В. Visual Basic в бюро. -М., 1998.