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.

End Sub - student2.ru

Рис. 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

Наши рекомендации