это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
Проектирование и автоматизация бизнес-процессов обработки заказа...
Диплом, ИТ (IT)
Срок сдачи к 31 мар.
Web-сервис размещения объявлений (узконаправленная тема - поиск...
Диплом, Комьютерные системы и технологии
Срок сдачи к 15 мая
оценка сенсорно- перцептивной деятельности детей среднего дошкольного...
Отчет по практике, Дефектология (Специальная педагогика)
Срок сдачи к 14 мар.
Курсовая работа на тему: "Анализ эффективности блога или информационного раздела сайта: какие статьи приводят к покупкам (а не просто к просмотрам)."
Курсовая, Аналитический маркетинг в Интернете
Срок сдачи к 20 мар.
Тусур Лабораторная (Функциональное и логическое программирование)
Лабораторная, Функциональное и логическое программирование
Срок сдачи к 31 мар.
Карьера: Сущность, виды, планирование в гостиничном деле
Презентация, Управление персоналом/Управление конкурентоспособностью
Срок сдачи к 17 мар.
Составить презентацию по теме : «понятие и виды общения
Презентация, Психология
Срок сдачи к 16 мар.
Тусур Лабораторная (Моделирование и анализ бизнес-процессов)
Лабораторная, Моделирование и анализ бизнес-процессов
Срок сдачи к 31 мар.
Заполните форму и узнайте цену на индивидуальную работу!