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

Самостоятельная работа По дисциплине:

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

Задание

Тема № Стандартные диалоговые окна открытия, закрытия, сохранения файла. Использование общего диалога для функций шрифтов, цветов, печати, справочной системы Прочитайте внимательно условия следующих задач и аналогично № 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