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



Диалоговые окна 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 для изменения шрифта, сохранения, открытия и печати файлов.

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


Элемент управления Свойство Значение
Command 1

Name CmdSave
Caption &Save
Command2

Name CmdExit
Caption E&xit
  1. Правой кнопкой мыши щелкните панель элементов управления. Во всплы вающем меню щелкните пункт Components и выберите Microsoft Common Dialog Control.
  2. Добавьте на форму Fonnl элемент управления Common Dialog.
  3. Повторите пункт 5 и выберите Microsoft Rich Textbox Control 5.0.
  4. Измените имя RichTextBoxl на rtbNote.
  5. В событие для нажатия кнопки 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

  1. В событие для нажатия кнопки cmdExit добавьте следующий код:

    Unload Me

  2. Запустите приложение.
  3. Введите произвольный текст в Rich Textbox и нажмите кнопку Save.
  4. Появится элемент управления Common Dialog, где можно ввести имя для данного файла. Сохраните этот файл под именем Exercisel.doc в каталоге WA\Practice\Chl2.
  5. Нажмите Exit.



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