Ход работы. 1. Сначала заменим компонент TextBox более многофункциональным компонентом Rich TextBox
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 'Зачеркнутый текст
Дата добавления: 2015-06-12; просмотров: 503;