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

Узнай цену своей работы

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

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

Решение задачи: «Перемещение объекта»

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.75 из 5