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