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

БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Работа с диалоговыми окнами

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

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

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

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

Задание

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

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