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