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


              

Создание многодокументного интерфейса


В этом упражнении Вы создадите MDl-приложение, выводящее растровое изображение.

> Создание MDI-приложения

  1. Создайте в Visual Basic новый проект типа Standard EXE.
  2. Переименуйте форму Form1 в frmChild.
  3. Присвойте свойству MDIChild формы frmChild значение True.
  4. Добавьте в приложение MDI-форму.
  5. Измените размер MDI-формы, чтобы она могла содержать дочерние окна.
  6. Установите свойства MDI-формы, перечисленные ниже.
  7. Свойство

    Значение

    Name

    mdiMain

    Caption

    MDI Main Form

    StartUpPosition

    2-CenterScreen

  8. В окне Project Properties выберите в качестве Startup Object объект mdiMain.
  9. Создайте для mdiMain меню, включив в меню File пункты New Child и Exit. Установите свойства, перечисленные ниже.
  10. Меню

    Свойство

    Значение

    File

    Name

    mnuFile

    Caption

    &File

    New Child

    Name

    mnuNewChild

    Caption

    &New Child Window

    Caption

    E&xit

    Window

    Name

    mnuWindow

    Caption

    &Windows

    WindowList

    установлен

  11. Добавьте следующий код в событие для щелчка mnuNewChild:

    Dim newchild As Form

    Static child_num As Integer

    child_num = child_num + 1

    Set newchild = New frmChild

    newchild.Caption = "Дочерняя форма #" & child_num

    newchild.Visible = True

  12. Добавьте в событие mnuExit_CIick код закрытия приложения.
  13. > Вывод на экран растрового изображения

  14. Добавьте на форму frmChild поле изображения и кнопку.
  15. Установите свойства, перечисленные ниже.
  16. Элемент управления

    Свойство

    Значение

    Picture Box

    Name

    PicMain

    Command Button

    Name

    CmdLoad

    Caption

    Load Picture

  17. Добавьте следующий код в событие Click кнопки cmdLoad:

    Set picMain.Picture = LoadPicture("c:\program files" & "\devstudio\vb\graphics\metafile\arrows\3darrow1.wmf")

  18. Сохраните изменения и протестируйте приложение.



  19. Содержание  Назад  Вперед