Перемещение объекта - VB

Формулировка задачи:

Как переместить объект (пусть прямоугольник) влево, вправо, вверх и вниз? Одним словом, как это все перемещать? Подсказывают, что через Mode, но как?!

Код к задаче: «Перемещение объекта - VB»

textual
Dim ugol ' что значит уго?
Const Pi = 3.1415926 
 
Private Sub Form_Load()
ugol = 0 
Timer1.Interval = 100 ' что дает изменение интервала?
End Sub
 
Private Sub Timer1_Timer()
Shape1.Move Sin(ugol) * 500 + 1000, Cos(ugol) * 500 + 1000 
' Красное - размещение объекта на форме, а зеленное - это радиус или скорость?
ugol = IIf(ugol > 2 * Pi, ugol - 2 * Pi + 0.5, ugol + 0.5) ' Если здесь поменять знаки на противоположные, то объект будет двигаться в другую сторону?
End Sub

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ