Самостійна робота
З дисципліни:
Мови програмування
Завдання
Тема № Стандартні діалогові вікна відкриття, закриття, збереження файлу. Використання спільного діалогу для функцій шрифтів, кольорів, друку, довідкової системи
Прочитайте уважно умови наступних завдань і аналогічно № 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 ()
CommonDialog 1. DialogTitle = "відкрити"
CommonDialog 1. 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