Тема № Стандартные диалоговые окна открытия, закрытия, сохранения файла. Использование общего диалога для функций шрифтов, цветов, печати, справочной системы

Прочитайте внимательно условия следующих задач и аналогично №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