Практическая работа по VISUAL BASIC.Проект «Стиль и цвет шрифта"

Выполнив задания этой практической работы, вы научитесь:   на   ней   элементы     управления   (CheckBox, Проект «Стиль и цвет шрифта» ­  создавать   форму   и   размещать   TextBox ,OptionButton,Frame); ­ устанавливать свойства   элементов управления (Caption,Text,  MultiLine,  ScroolBars, Alignment, Stile, BolderStyt, FontBold,Value); ­ вводить текст  программы и её отладка (вспомните условный оператор); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства; Класс объектов Свойства OptionButton (радиокнопка) Caption(надпись) CheckBox (флажок) Stile (тип кнопки) Caption(надпись) Frame (рамка) Stile Caption(надпись) TextBox (текстовое поле) BolderStyt(форма рамки) ­Text (текст) ­MultiLine(многострочный текст) ­ ScroolBars (скролинг) Значение по умолчанию   значение Новое Option1 Option2 Option3 Check1 Check2 Check3 Frame1 Frame2 Text1 Черный Красный Синий Standart Жирный Курсив Подчеркнутый Standart Стиль Цвет True Vertical Более подробные сведения об объектах и их свойствах можно найти в конце брошюры. Задание: 1)   Создать   форму,   расположив   на   ней соответствующие управляющие элементы, настроив их свойства. 2)   Составить   событийную   процедуру, которая бы при выборе соответствующего стиля и цвета устанавливала его. 3)  Сохранить проект в папке «Проекты». Примерный образец решения Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = 1 Else Text1.FontBold = 0 End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = 1 Else Text1.FontItalic = 0 End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = 1 Else Text1.FontUnderline = 0 End If End Sub Private Sub Option1_Click() Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click() Text1.ForeColor = vbRed End Sub Private Sub Option3_Click() Text1.ForeColor = vbBlue End Sub