End Sub

Next

End If

End Sub

UserForm1.Show

End Sub

UserForm1.Hide

End Sub

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)

Программа третьей кнопки убирает форму с экрана:

Sub CommandButton3_Click()

Программа для кнопки Работа с формой на рабочем листе вызовет появление формы на экране:

Sub CommandButton3_Click()

С нажатия этой кнопки можно начать работу. На появившейся форме попеременно нажимая кнопки Положение 1 и Положение 2 можно понаблюдать за изменениями на экране.

Пример 2 движения элемента управления через определенные промежутки времени.

Пусть на форме имеется текстовое поле. Программа, приведенная ниже, производит следующие действия: поле окрашивается в зеленый цвет, определяется положение поля на форме и оно меняется семь раз через одну секунду.

Sub CommandButton1_Click()

UserForm1.TextBox1.BackColor = RGB(0, 255, 0)

For i = 10 To 70 Step 10

UserForm1.TextBox1.Top = 10 + i

UserForm1.TextBox1.Left = 10 + i

If Application.Wait(Now + TimeValue("0:00:1")) Then

Встроенная функция Nowопределяет текущее время, с помощью встроенной функции TimeValue задается интервал времени (в нашем примере – 1 сек), метод Wait в приложении (Application) переводит компьютер в режим ожидания на некоторый отрезок времени.

Пример 3. Пусть разработана форма, представленная на рис. 10.3.

Рис. 10.3 – Ввод информации и вывод результатов

Программа для кнопки Вывод результатов вводит значение х из верхнего поля, рассчитывает значения а, b, z и выводит их в поля TextBox1, TextBox2, а значение z выводит в надпись Label2, расположенную в нижней части формы UserForm1:

Sub CommandButton1_Click()