Ход работы. 20. Запустите проект на выполнение

End Sub

End Select

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

20. Запустите проект на выполнение. Проверьте функционирование кнопок стандартной панели инструментов и пунктов меню «Правка».

21. Закройте запущенное приложение. Создайте exe-файл приложения с помощью команды File → Make Блокнот.exe.

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

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

Задание 3. Создание и обработка команд меню Формат.

В меню «Формат», располагаются команды, отвечающие за изменение вида содержимого текстового или какого-либо другого документа (например, Шрифт, Список и т.п.)

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

Дополнить приложение, созданное в предыдущем задании, пунктом меню «Формат» и соответствующими командами.

1. Сначала заменим компонент TextBox более многофункциональным компонентом Rich TextBox. Для этого удалите компонент TextBox с формы и выберите команду Project → Components.

2. В открывшемся окне поставьте галочку напротив строки Microsoft Rich TextBox Control 6.0 (SP3).

3. Разместите компонент Rich TextBox на форме вместо прежнего компонента TextBox.

4. Чтобы не менять в программном коде предыдущее имя, измените свойство Name у компонента Rich TextBox на Text1.

5. Выберите команду Tools → Menu Editor (Редактор → Отладка) и дополните ранее созданное меню пунктом Формат, структура которого приведена на Рис.15.6. Названия пунктов приведены в Таблице 15.6.

Таблица 15.6

Название (Caption)	Уровень (← →)	Имя (Name)
Формат		mnuФормат
Шрифт		itmШрифт
Цвет		itmЦвет
Шрифт		subШрифт
Фон		subФон

6. Разместите на Форме компонент Common Dialog. В процессе работы он будет невидим.

7. Присвойте у компонента Common Dialog свойству Name значение CDlg1.

8. Выберите у компонента Common Dialog свойство Custom, и затем вкладку Font.

9. В полях FontName, FontSize, Min и Max установите параметры шрифта, которые будут использоваться по умолчанию. В поле Flags установить значение 2, определяющее тип шрифтов.

10. Выберите пункт меню Формат → Шрифт и напишите для обработчика этой команды следующий программный код (необходимые комментарии приведены в кавычках):

Private Sub itmШрифт_Click()

CDlg1.ShowFont 'Показываем диалоговое окно настроек шрифта

Text1.Font.Size = CDlg1.FontSize 'Присваиваем размеру шрифта в компоненте

'Text1 значение размера шрифта, которое

'будет указано в диалоговом окне настроек

Text1.Font.Name = CDlg1.FontName 'Устанавливаем тип шрифта

Text1.Font.Bold = CDlg1.FontBold 'Полужирное начертание шрифта

Text1.Font.Italic = CDlg1.FontItalic 'Курсивное начертание шрифта

Text1.Font.Underline = CDlg1.FontUnderline 'Подчеркнутый текст

Text1.Font.Strikethrough = CDlg1.FontStrikethru 'Зачеркнутый текст

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