99ea0f1a

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



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



    Главная сайта