Примеры использования форм

End Sub

UserForm1.Show

При выполнении этой программы появляется форма, окрашенная в красный цвет.

Caption – заголовок. Заголовком формы является текст, выводимый в строку заголовка окна формы.

Font – шрифт. Для задания значения этому свойству необходимо выбрать его в списке свойств и раскрыть стандартное диалоговое окно выбора шрифтов, нажав кнопку с многоточием. При установке шрифта программным путем используются следующие свойства: FontBold – полужирный, Fontlitalic –курсив, FontUnderline –подчеркнутый. Они принимают значения True или False. Например, оператор UserForm1.TextBox1.FontBold=True определяет шрифт в текстовом окне как полужирный.

FontSize –размер шрифта. ForeColor – основной цвет. Это свойство определяет цвет текста. Height – высота окна формы , Width –ширина окна формы. Name – имя формы. Это свойство определяет имя формы, по которому можно обращаться к ней в программном коде.

Picture – отображение рисунка. Свойство позволяет отобразить на форме рисунок, файл с которым можно открыть, нажав кнопку в правой части.

Top – координата верхней границы, Left – координата левой границы окна формы на экране.

Элементы управления, такие как кнопки, поля, надписи и др. имеют и вышеперечисленные свойства и собственные свойства. Например, текстовое поле имеет свойство Text, в котором записывается содержимое поля. Полный перечень свойств объектов можно найти в справочной системе VBА.

Пример 1 работы с формой и элементами управления. На рабочем листе создадим кнопку с именем Работа с формой и форму, изображенную на рис. 10.2.

Рис. 10.2 – Форма пользователя

На форме размещено поле (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)

Дата добавления: 2014-01-20