End Sub
С нажатия этой кнопки можно начать работу. На появившейся форме попеременно нажимая кнопки Положение 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
End If
Next
End Sub
Встроенная функция Nowопределяет текущее время, с помощью встроенной функции TimeValue задается интервал времени (в нашем примере – 1 сек), метод Wait в приложении (Application) переводит компьютер в режим ожидания на некоторый отрезок времени.
Пример 3. Пусть разработана форма, представленная на рис. 10.3.
Рис. 10.3 – Ввод информации и вывод результатов
Программа для кнопки Вывод результатов вводит значение х из верхнего поля, рассчитывает значения а, b, z и выводит их в поля TextBox1, TextBox2, а значение z выводит в надпись Label2, расположенную в нижней части формы UserForm1:
Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim a As Single, b As Single, z As Single
x = UserForm1.TextBox1.Text
y = Format(x, "####.##")
a = (x + y) ^ 2 : b = Sin(a) - Sin(b) ^ 3
UserForm1.TextBox2.Text = "a=" & a
UserForm1.TextBox3.Text = "b=" & b
UserForm1.Label2.Caption = "z = " & 5 * Sin(10) / 3