Text Box, редактирование шрифта - VB

Формулировка задачи:

РЕБЯТ ПРИВЕТ, ПОМОГИТЕ С КОДОМ ПРОГИ? 1.Отобразить в текстовом поле (Text Box) текст с различными видами шрифтов. Ввод текста ограничить 10-ю символами. Исходный текст в текстовом окне: FontDemo. Управление типом шрифта осуществить с помощью четырех командных кнопок (Command Button). Над текстовым полем вывести заголовок (с помощью Label): Шрифт текста. Над группой командных кнопок вывести заголовок (также с помощью Label): Выберите шрифт. 2.Под текстовым полем (Text Box) установить два флажка (Check Box), которые будут использованы для управления начертанием шрифта (Bold-полужирный, Italic-наклонный). Общий вид формы представлен на рис. 2. Убрать с формы управляющие кнопки (Command Button) и сделать управление шрифтов с помощью переключателей (Option Button). В этом случае форма должна иметь вид, представленный на рис. 3. 1) Изменение вида шрифта следует осуществлять с помощью установки соответствующего значения свойству Font управляющего элемента TextBox. Это делается с помощью оператора присваивания в процедуре обработки события Click. 2) Изменение начертания шрифта можно осуществить, используя свойство Value управляющего элемента CheckBox. При этом следует использовать условный оператор If.

Решение задачи: «Text Box, редактирование шрифта»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Check1_Click() 'Жирный (bold) текст в text1 или нет
If Check1.Value = 0 Then 'Условие, если галочка не стоит будет обычный текст
Text1.FontBold = False
Else 'иначе будет жирный текст
Text1.FontBold = True
End If
End Sub
 
Private Sub Check2_Click() 'Курсивный (italic) текст в text1 или нет
If Check2.Value = 0 Then 'условие аналогичное условию в Check1
Text1.FontItalic = False
Else
Text1.FontItalic = True
End If
End Sub
 
Private Sub Command1_Click() 'Кнопка меняет шрифт в text1 на Arial
Text1.Font = "Arial"
End Sub
 
Private Sub Command2_Click() 'Кнопка меняет шрифт в text1 на Symbol
Text1.Font = "Symbol"
End Sub
 
Private Sub Command3_Click() 'Кнопка меняет шрифт в text1 на Times New Roman
Text1.Font = "Times New Roman"
End Sub
 
Private Sub Command4_Click() 'Кнопка меняет шрифт в text1 на Courier New
Text1.Font = "Courier New"
End Sub
 
Private Sub Form_Load() События ниже происходят при запуске приложения
Form1.Caption = "Выбор шрифта" 'Название программы (окна)
Text1.MaxLength = "10" 'Ограничение максимальной длинны текста в text1
Text1.Text = "FontDemo" 'Отображаемый текст в text1
End Sub
                        