Работа с диалоговыми окнами

Самостоятельная работа

По дисциплине:

Языки программирования

Задание

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

Прочитайте внимательно условия следующих задач и аналогично №1 составьте
программу задачи № 2

Задача №1. Создайте меню Файл-Открыть, Вид -Шрифт. Загрузите в окно RihtTextBox файл в формате .rtf , выбранный из окна «Открыть».
Сделайте текст в окне жирным через подменю Шрифт

Задача №2. Создайте меню Файл-Открыть, Вид -Шрифт. Загрузите в окно RihtTextBox файл в формате .rtf , выбранный из окна «Открыть».
Сделайте текст в окне курсивным через подменю Шрифт

Краткое содержание темы: Использование общего диалога для
функций шрифтов, цветов, печати, справочной системы

Диалоговое окно настройки шрифтов
текста

Для вызова диалогового окна настройки шрифтов используется
метод ShowFont, например:

CommonDialog1. ShowFont

Всё просто, но следует учитывать один нюанс с свойством
Flags. При желании воспользоваться окном выбора шрифтов, отображающим только
шрифты для печати, шрифты экрана или те и другие, то Visual Basic потребует
установить свойство Flags перед тем, как вызывать на экран окно Font

Ниже представлена таблица с описанием наиболее важных
свойств:

Можно считать значения различных свойств шрифта, чтобы
увидеть изменения, внесенные пользователем. Например, значение
CommonDialog1.FontName содержит имя шрифта, который выбрал пользователь. После
этого необходимо написать код для введения в силу внесенных изменений.

Диалоговое окно настройки цветовой
палитры

Для настройки цвета фона формы и расположенных в форме
элементов можно использовать диалоговое окно настройки цветовой палитры. Для
вызова этого диалогового окна используется метод ShowColor, например: CommonDialog1. ShowColor

Константы, используемые для настройки диалогового окна выбора
цветовой палитры, перечислены в табл. Значения для метода Flags диалогового
окна цветовой палитры

Решение задачи №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