это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Самостоятельная работа
По дисциплине:
Языки программирования
Задание
Тема № Стандартные диалоговые окна открытия, закрытия, сохранения файла. Использование общего диалога для функций шрифтов, цветов, печати, справочной системы
Прочитайте внимательно условия следующих задач и аналогично №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
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
"Волшебная коробка с заколдованными фигурами"
Отчет по практике, Учебная ознакомительная практика в дошкольной образовательной организации
Срок сдачи к 8 июня
Организация технологического процесса приготовления хлебобулочных изделий с использованием новых видов сырья в пекарне
Доклад, Дипломная работа
Срок сдачи к 19 мая
Презентация
Презентация, Критерии оценки эффективности деятельности государственных и муниципальных служащих
Срок сдачи к 16 мая
Написать содержание по готовому индивидуальному заданию+приложения к работе (в виде фото)
Другое, Бизнес-информатика
Срок сдачи к 18 мая
Разработка алгоритма, создание и исследование программы на языке step-7 «управление ра- ботой двигателя постоянного тока по заданному циклу
Лабораторная, Автоматизация технологических процессов и производств
Срок сдачи к 22 мая
Разработка алгоритма, создание и исследование программы «Управление работой светофоров на перекрестке»
Лабораторная, Автоматизация технологических процессов и производств
Срок сдачи к 22 мая
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте