Работа с диалоговыми окнами Самостоятельная работа По дисциплине: Языки программирования Задание   Тема № Стандартные диалоговые окна открытия, закрытия, сохранения файла. Использование общего диалога для функций шрифтов, цветов, печати, справочной системы Прочитайте внимательно условия следующих задач и аналогично №1 составьте программу задачи № 2 Задача №1. Создайте меню Файл-Открыть, Вид -Шрифт. Загрузите в окно RihtTextBox файл в формате .rtf , выбранный из окна «Открыть». Сделайте текст в окне жирным через подменю Шрифт Задача №2. Создайте меню Файл-Открыть, Вид -Шрифт. Загрузите в окно RihtTextBox файл в формате .rtf , выбранный из окна «Открыть». Сделайте текст в окне курсивным через подменю Шрифт Краткое содержание темы: Использование общего диалога для функций шрифтов, цветов, печати, справочной системы   Диалоговое окно настройки шрифтов текста Для вызова диалогового окна настройки шрифтов используется метод ShowFont, например: CommonDialog1. ShowFont Всё просто, но следует учитывать один нюанс с свойством Flags. При желании воспользоваться окном выбора шрифтов, отображающим только шрифты для печати, шрифты экрана или те и другие, то Visual Basic потребует установить свойство Flags перед тем, как вызывать на экран окно Font Ниже представлена таблица с описанием наиболее важных свойств: Color Используется только для цветных принтеров FontBold, FontItalic, FontStrikeThru, FontUnderline, Эти свойства принимают значения True или False. Если установлен флаг cdlCFEffects, то это позволяет пользователю использовать эти свойства FontName Возвращает / устанавливает имя шрифта FontSize Возвращает / устанавливает размер шрифта Min, Max Используется для указания размеров. Необходимо установить cdlCFLimitSize перед использованием этих свойств Можно считать значения различных свойств шрифта, чтобы увидеть изменения, внесенные пользователем. Например, значение CommonDialog1.FontName содержит имя шрифта, который выбрал пользователь. После этого необходимо написать код для введения в силу внесенных изменений.   Диалоговое окно настройки цветовой палитры Для настройки цвета фона формы и расположенных в форме элементов можно использовать диалоговое окно настройки цветовой палитры. Для вызова этого диалогового окна используется метод ShowColor, например: CommonDialog1. ShowColor Константы, используемые для настройки диалогового окна выбора цветовой палитры, перечислены в табл. Значения для метода Flags диалогового окна цветовой палитры Константа Значение Описание cdlCCFullOpen &H2 Помещает в диалоговое окно дополнительную кнопку Добавить в набор и цветовое поле с маркером и линейкой назначения оттенка для добавления цветов в поля Дополнительные цвета диалогового окна цветовой палитры (рис. 7.25) cdlCCShowHelp &H8 Добавляет в диалоговое окно кнопку Справка cdlCCPreventFullOpen &H4 Скрывает кнопку Добавить в набор cdlCCRGBInit &H1 Восстанавливает в диалоговом окне исходный набор цветов Решение задачи №1   Private Sub Открыть_Click() CommonDialog1.DialogTitle = "открыть" CommonDialog1.Filter = "текстовые документы RTF|*.rtf|рисунки|*.bmp" CommonDialog1.ShowOpen If CommonDialog1.FilterIndex = 1 Then RichTextBox1.LoadFile (CommonDialog1.FileName) ElseIf CommonDialog1.FilterIndex = 2 Then Image1.Picture=LoadPicture(CommonDialog1.FileName) End If End Sub Private Sub Шрифт_Click() CommonDialog1.Flags = 1 CommonDialog1.ShowFont RichTextBox1.SelBold = CommonDialog1.FontBold End Sub