Архитектура Microsoft Windows для разработчиков

       

Диалоговые окна 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.


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