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

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

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

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

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

Свойство	Значение
Name	mdiMain
Caption	MDI Main Form
StartUpPosition	2-CenterScreen

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

Меню	Свойство	Значение
File	Name	mnuFile
Caption	&File
New Child	Name	mnuNewChild
Caption	&New Child Window
Caption	E&xit
Window	Name	mnuWindow
Caption	&Windows
WindowList	установлен

1. Добавьте следующий код в событие для щелчка 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

2. Добавьте в событие mnuExit_CIick код закрытия приложения.

> Вывод на экран растрового изображения

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

Элемент управления	Свойство	Значение
Picture Box	Name	PicMain
Command Button	Name	CmdLoad
Caption	Load Picture

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

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

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