Диалоговые окна OLE

Работая с Visual Basic, Вы можете обращаться к некоторым функциям диалоговых окон OLE при помощи стандартного OLE-элемента управления. Однако чтобы обеспечить полную поддержку OLE-диалогов, придется вызывать функции API. Windows поддерживает следующие OLE-диалоги:

• Insert Object (другое название — Create New или Create From File);
• Change Icon;
• Paste Special;
• Convert — преобразует данный экземпляр объекта к другому классу;
• Links (Свойства связей) — обеспечивает пакетное управление связями в активном контейнере и показывает источник связи, тип связи и метод обновления. Это окно позволяет пользователю изменять, открывать, переназначать и разрывать связи;
• Object Properties — отображает свойства объекта (новый диалог).

> Использование элемента управления Common Dialog в Visual Basic

В этом упражнении Вы добавите компонент Common Dialog в приложение Visual Basic. Он обеспечивает доступ к стандартным диалоговым окнам Windows для изменения шрифта, сохранения, открытия и печати файлов.

• Создайте в Visual Basic новый проект типа Standard EXE.
• Поместите на форму Forml две кнопки.
• Установите свойства, перечисленные в таблице.





Элемент управления	Свойство	Значение
Command 1	Name	CmdSave
Caption	&Save
Command2	Name	CmdExit
Caption	E&xit

• Правой кнопкой мыши щелкните панель элементов управления. Во всплы вающем меню щелкните пункт 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.


Содержание раздела



---







---