Диалоговые окна OLE
Работая с Visual Basic, Вы можете обращаться к некоторым функциям диалоговых окон OLE при помощи стандартного OLE-элемента управления. Однако чтобы обеспечить полную поддержку OLE-диалогов, придется вызывать функции API. Windows поддерживает следующие OLE-диалоги:
- Insert Object (другое название — Create New или Create From File);
- Change Icon;
- Paste Special;
- Convert — преобразует данный экземпляр объекта к другому классу;
- Links (Свойства связей) — обеспечивает пакетное управление связями в активном контейнере и показывает источник связи, тип связи и метод обновления. Это окно позволяет пользователю изменять, открывать, переназначать и разрывать связи;
- Object Properties — отображает свойства объекта (новый диалог).
- Создайте в Visual Basic новый проект типа Standard EXE.
- Поместите на форму Forml две кнопки.
- Установите свойства, перечисленные в таблице.
- Правой кнопкой мыши щелкните панель элементов управления. Во всплы вающем меню щелкните пункт Components и выберите Microsoft Common Dialog Control.
- Добавьте на форму Fonnl элемент управления Common Dialog.
- Повторите пункт 5 и выберите Microsoft Rich Textbox Control 5.0.
- Измените имя RichTextBoxl на rtbNote.
- В событие для нажатия кнопки cmdSave добавьте следующий код:
Private Sub cmdSave_Click()
Dim FileName As String
On Error GoTo ErrorHandler
CommonDialog1.Filter = "Document (*.doc)¦*.doc"
CommonDialogI.ShowSave
rtbNote.SaveFile CommonDialogI.FileName
Exit Sub
ErrorHandler:
MsgBox Err.Description, , "Ошибка"
End Sub
- В событие для нажатия кнопки cmdExit добавьте следующий код:
Unload Me
- Запустите приложение.
- Введите произвольный текст в Rich Textbox и нажмите кнопку Save.
- Появится элемент управления Common Dialog, где можно ввести имя для данного файла. Сохраните этот файл под именем Exercisel.doc в каталоге WA\Practice\Chl2.
- Нажмите Exit.
> Использование элемента управления Common Dialog в Visual Basic
В этом упражнении Вы добавите компонент Common Dialog в приложение Visual Basic. Он обеспечивает доступ к стандартным диалоговым окнам Windows для изменения шрифта, сохранения, открытия и печати файлов.
Элемент управления | Свойство |
Значение |
Command 1
|
Name |
CmdSave |
Caption |
&Save |
|
Command2
|
Name |
CmdExit |
Caption |
E&xit |