Практическая работа по VISUAL BASIC.Проект «Изменение цвета и размера шрифта"

Выполнив задания этой практической работы, вы научитесь: Проект «Изменение цвета и размера шрифта»   элементов   управления   (Caption, ­ создавать форму и размещать  на ней элементы  управления (Label, TextBox); ­   устанавливать   свойства   ScroolBars,ForeColor); ­ вводить текст   программы и её отладка (вспомните условный оператор и оператор выбора); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства;  Text,  MultiLine, Класс объектов Свойства TextBox (текстовое поле) Label ( метка) ­Text (текст) ­MultiLine(многострочный текст) ­ ScroolBars (скролинг) ­Text ­ ForeColor (цвет текста) Caption(надпись)  Новое  значение Значение по умолчанию Text1 True Vertical Размер шрифта Цвет шрифта Text2 Text3 Label1 Label2 Более подробные сведения об объектах и их свойствах можно найти в конце брошюры. ­ функция Val (функция перевода строки в число);     ­  условный оператор, оператор выбора (см. приложение)      ­  событие  Key Press (нажатие и отпускание какой­ либо кнопки);             Key Ascii –числовой код нажатой клавиши (клавиша Enter имеет код 13) ­ ­      Константы сохранение проекта (File­ Save Project As…)       цвета    :       Зеленый – vb Green  Синий – vb Blue  Черный – vb Black        Белый – vb White        Красный­vb Red Задание: 1)   Создать   форму,   расположив   на   ней   соответствующие   управляющие   элементы, настроив свойства. 2)   Составить   событийную   процедуру,   которая   бы   при   заполнении   текстового   поля «Размер шрифта» и нажатии клавиши ENTER меняла размер шрифта сообщения в воле ввода, а при наборе цвета словом «красный», «синий», «зеленый», изменяла бы цвет на соответствующий, любую другую запись  воспринимает как «черный». 3) Сохранить проект в папку «Проекты».     образец       решения Примерный   Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Val(Text2.Text) > 10 And Val(Text2.Text) < 40 Then Text1.FontSize = Val(Text2.Text) Else If Val(Text2.Text) <= 10 Then Text2.Text = "10" Text1.FontSize = Val(Text2.Text) Else Text2.Text = "40" Text1.FontSize = Val(Text2.Text) End If End If End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select Case Text3.Text Case "красный" Text1.ForeColor = vbRed Case "зеленый" Text1.ForeColor = vbGreen Case "синий" Text1.ForeColor = vbBlue Case Else Text1.ForeColor = vbBlack End Select End If End Sub