![](/user_photo/2706_HbeT2.jpg)
- •Типы данных
- •Dim ИмяПеременной As ТипДанных
- •Dim Имя_массива(список_размерностей) As Имя_типа
- •3.1. Правила записи операторов
- •3.2. Оператор присваивания
- •3.3. Операторы ввода-вывода
- •3.3.1. Оператор и функция MsgBox
- •3.3.2. Функция InputBox
- •Создание макроса
- •Интерфейс пользователя vba
- •Основные команды главного меню vb
- •Создание модуля
- •Создание форм
- •Лабораторная работа №1 Задание 1
- •Варианты заданий
- •Задание 2
- •Задание 3
- •Задание 4
- •VbInformation, "о программе"
Задание 4
Создайте текстовый редактор. Нажатие командных кнопок и изменения значений флажков и переключателей должны приводить к соответствующему изменению свойств текстового поля. Щелчок кнопки «О программе» должен выводить окно сообщения, содержащее сведения о разработчике.
Чтобы при нажатии командной кнопки cmdForeBlack у элемента txtDoc свойство ForeColor (цвет текста) принимало значение vbBlack (черный) добавьте окно программного кода с помощью контекстного меню для кнопки «Черный». Между появившимися строками добавьте еще одну: txtDoc.ForeColor=vbBlack.
Самостоятельно добавьте текст процедуры для кнопок «Зеленый» (свойство vbGreen) и «Синий» (свойство vbBlue).
Свойство Цвет фона обозначается как BackColor.
Цвета белый, желтый, красный кодируются как vbWhite, vbYellow, vbRed.
Свойство Выравнивание обозначается Alignment и принимает значения vbLeftJustify (по левому краю), vbRightJustify (по правому краю) и vbCenter (по центру).
За параметры шрифта (полужирный, курсив. подчеркнутый) отвечают свойства FontBold, FontItalic, FontUnderline. Они могут принимать только значения True (Истина) и False (Ложь). Чтобы изменить значение свойства FontBold на противополжное, используется конструкция: txtDoc.FontBold=Not txtDoc.FontBold.
Следующий фрагмент выводит окно сообщения, показанного на рисунке:
MsgBox "Это приложение написано в среде Visual Basic" + _
Chr(13) + Chr(10) + "Автор: Иванов И.И., группа ВВТ-106", _
VbInformation, "о программе"