End Sub

End

End Sub

End Sub

End Sub

End Sub

'Щелчок по пункту меню «Сверху вниз»

Private Sub itmHorizontal_Click()

Arrange vbTileHorizontal

'Щелчок по пункту «Калькулятор»

Private Sub itmКалькулятор_Click()

Dim newform As New frmКалькулятор

Load newform

newform.Show

'Щелчок по пункту меню «Фотоальбом»

Private Sub itmФотоальбом_Click()

Dim newform As New frmАльбом

Load newform

newform.Show

'Щелчок по пункту меню «Выход»

Private Sub mnuExit_Click()

20. Сохраните проект

21. Запустите проект на выполнение. Первой должна активизироваться стартовая форма.

22. Проверьте функционирование всего проекта.

23. Создайте exe-файл программы с помощью команды File → Make Программы.exe.

24. Выйдите из среды Visual Basic.

25. Запустите на выполнение файл Программы.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 2. Создание панели инструментов.

Постановка задачи.

Добавим в ранее созданное приложение Программы.exe панель инструментов, позволяющую открыть программу не только с помощью меню, но и с помощью кнопок управления, а также содержащую кнопки, позволяющую упорядочить окна каскадом или по горизонтали.

Вид приложения Программы.exe с панелью инструментов приведен на Рис.14.11.

Дата добавления: 2014-12-23