Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
UserForm1.Show
End Sub
При выполнении этой программы появляется форма, окрашенная в красный цвет.
Caption– заголовок. Заголовком формы является текст, выводимый в строку заголовка окна формы.
Font –шрифт. Для задания значения этому свойству необходимо выбрать его в списке свойств и раскрыть стандартное диалоговое окно выбора шрифтов, нажав кнопку с многоточием. При установке шрифта программным путем используются следующие свойства: FontBold – полужирный,Fontlitalic–курсив,FontUnderline–подчеркнутый. Они принимают значения True или False. Например, оператор UserForm1.TextBox1.FontBold = True определяет шрифт в текстовом окне как полужирный.
FontSize–размер шрифта. ForeColor– основной цвет. Это свойство определяет цвет текста. Height– высота окна формы,Width–ширина окна формы. Name– имя формы. Это свойство определяет имя формы, по которому можно обращаться к ней в программном коде.
Picture– отображение рисунка. Свойство позволяет отобразить на форме рисунок, файл с которым можно открыть, нажав кнопку в правой части.
Top– координата верхней границы, Left –координата левой границы окна формы на экране.
Элементы управления, такие как кнопки, поля, надписи и др., имеют и вышеперечисленные свойства и собственные свойства. Например, текстовое поле имеет свойство Text, в котором записывается содержимое поля. Полный перечень свойств объектов можно найти в справочной системе VBА.
Примеры использования форм
Пример 8.1. Рассмотрим пример работы с формой и элементами управления. На рабочем листе создадим кнопку с именем Работа с формойи форму, изображенную на рис. 8.1.
Рис. 8.1. Форма пользователя
На форме размещено поле (TextBox1) и три кнопки. Названия на этих кнопках можно ввести при создании кнопок, щелкнув по имени, либо, можно в контекстном меню выполнить команду Properties и в свойстве Caption ввести нужное наименование кнопки.
Программа для первой кнопки Положение 1:
Sub CommandButton1_Click()
UserForm1.TextBox1.Text = "Привет"
UserForm1.TextBox1.Top = 10
UserForm1.TextBox1.Left = 10
UserForm1.TextBox1.FontSize = 10
UserForm1.TextBox1.ForeColor = RGB(0, 0, 255)
End Sub
Здесь в текстовое окно помещается слово «Привет». Программным путем меняются свойства Top и Left, определяющие координаты верхнего левого угла текстового поля, выбирается размер шрифта в поле и цвет. RGB(0, 0, 255)определяет красный цвет. Программа для второй кнопки Положение 2 меняет расположение поля, размер и цвет текста в поле:
Sub CommandButton2_Click()
UserForm1.TextBox1.Text = "Привет"
UserForm1.TextBox1.Top = 80
UserForm1.TextBox1.Left = 10
UserForm1.TextBox1.FontSize = 20
UserForm1.TextBox1.ForeColor = RGB(255, 0, 0)
End Sub
Программа третьей кнопки убирает форму с экрана:
Sub CommandButton3_Click()
UserForm1.Hide
End Sub
Программа для кнопки Работа с формой на рабочем листе вызовет появление формы на экране:
Sub CommandButton3_Click()
UserForm1.Show
End Sub
С нажатия этой кнопки можно начать работу. На появившейся форме попеременно нажимая кнопки Положение 1 и Положение 2, можно понаблюдать за изменениями на экране.
Пример 8.2. Рассмотрим пример движения элемента управления через определенные промежутки времени.
Пусть на форме имеется текстовое поле. Программа, приведенная ниже, производит следующие действия: поле окрашивается в зеленый цвет, определяется положение поля на форме и оно меняется 7 раз через одну секунду: