Лабораторная работа № 9. Создание форм пользователя в приложении Excel
1. Опробовать приведенные ниже примеры. Внести изменения в программы с тем, чтобы изменить параметры шрифта, цвет, направление движения.
П
ример.
Рассмотрим пример работы с формой
и элементами управления. Пусть на рабочем
листе размещена кнопка с именем Работа
с формой.
В окне редактора VBAсоздана
форма UserForm1,
изображенная слева. На форме имеется
поле (TextBox1)
и три кнопки. Надписи на кнопках определены
в свойствахCaption.
Программа для кнопки Работа с формой на рабочем листе вызовет появление формы на экране: SubCommandButton1_Click()
UserForm1.Show
End Sub
-
Программа для первой кнопки Положение 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, определяющие координаты верхнего левого угла текстового поля.
Программа для второй кнопки Положение 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
Программа третьей кнопки аналогична программе кнопки Работа с формой, но вместо Show используется метод Hide. С нажатия кнопки Работа с формой надо начать работу. На появившейся форме попеременно нажимая кнопки Положение 1 и Положение 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
Application.Wait(Now
+ TimeValue("0:00:1"))
Next
End
Sub
Здесь встроенная функция Nowопределяет текущее время, с помощью встроенной функции TimeValue задается интервал времени (в нашем примере – 1 секунда), метод Wait в приложении (Application) переводит компьютер в режим ожидания на некоторый отрезок времени.
2. Для разработанных ранее циклических программ в соответствии с вариантами табл. 5.1 организовать ввод исходных данных из полей формы и размещение полученных результатов в поля или надписи на форме.