это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
Курсовая работа для профессии поморское и кондитерское...
Курсовая, Поварское и кондитерское дело
Срок сдачи к 10 апр.
«Любимый уголок» - сочинения, описывающие дома, улицы, примечательные места, виды природы Шарыповского района, выражающие авторское отношение к родному району;
Сочинение, Литература
Срок сдачи к 5 апр.
Особенности деятельности рентгенолаборанта при проведении магнитно-резонансной томографии головного мозга.
Диплом, Сестринское дело
Срок сдачи к 4 мая
Необходимо решить двумерную задачу оптимизации 1) графически: изобразить допустимое множество и градиент целевой функции, найти оптимальный план 2) средствами поиска решения в ms excel
Решение задач, методы принятия управленческих решений
Срок сдачи к 4 апр.
Особенности логопедической работы по формированию компонентов связной речи у дошкольников с ОНР
Статья, Логопедия
Срок сдачи к 5 апр.
Составить базу персональных данный сотрудников мчс в acces три таблицы...
Курсовая, Информатика
Срок сдачи к 30 апр.
«анализ соответствия возможностей российских облачных платформ (vk cloud solutions, яндекс. облако, сбероблако) требованиям регуляторов в области защиты данных (152-фз, 187-фз).».
Диплом, Информационная безопасность
Срок сдачи к 17 апр.
Написать эссе на тему: таможенные споры о классификации товаров в соответствии с етн вэд: причины, анализ судебной практики.
Эссе, Таможенное право Евразийского экономического союза
Срок сдачи к 12 апр.
Контрольную работу выполняет Строго по методичке мой вариант...
Контрольная, эргономика, менеджмент
Срок сдачи к 23 апр.
Контрольная работа по службе управления персоналом решить Строго по методичке
Контрольная, Служба управления персоналом
Срок сдачи к 15 апр.
Заполните форму и узнайте цену на индивидуальную работу!