Visual Basic 6. Руководство разработчика


Связывание и встраивание объектов во время выполнения программы - часть 5


frmOLE.cmd0b]lnfo.Enabled = True

End If

Unload frmType

Если объект вставлен, то становится доступной кнопка

Object Info.

InsertObjDIg - это метод элемента OLE Container, позволяющий выводить диалоговое окно Insert Object (Вставка объекта), для того чтобы пользователь мог создавать связанный или встроенный объект, выбирая его тип и приложение для создания объекта. Установки пользователя автоматически присваиваются значениям соответствующих свойств элемента управления OLE.

Чтобы изменить размер контейнера, выполните следующие действия.

1. Запустите приложение, а затем щелкните на кнопке Insert Object, чтобы отобразить диалоговое окно Object Type.

2. Щелкните на одной из кнопок Size Mode (Установка размера), а затем - на Object Type (Тип объекта). На экране появится диалоговое окно Insert Object (рис. 14.12).

Ниже приводится исходный текст формы frmOLE. Обратите внимание на обработчик события Resize элемента управления OLE Container. Если предусмот­рена возможность изменения размеров элемента управления во время выполнения, то обработчик события Resize вызывается каждый раз, когда пользователь изменяет размеры окна. Событие Resize передает с помощью параметров HeightNew и WidthNew новые размеры окна элемента управления обработчику, который использует их для изменения размеров формы.

Insert Object

Рис. 14.12. В диалоговом окне Insert Object установлен переключатель Create from File и отображается путь к файлу данных

Программа 14.6. Форма frmOLE

Option Explicit

Private Sub cmdClose Click()

  Dim Quit As String

  Quit = MsgBox ("Are you sure you want to quit?" vbYesNo +     vbQuestion)

                ' (Вы уверены, что хотите закрыть приложение?...)

  If Quit = vbYes Then

     End

  End If

End Sub

Private Sub cmdInsObj_Click()

frmType.Show

End Sub

Private Sub cmdObjInfo_Click()

     Dim SourceText As String

Dim TypeText As String

Dim MsgText As String

SourceText = "The object's source file is " + oleDisplay. SourceDoc




Начало  Назад  Вперед



Книжный магазин