1
Январь
2009
Передвигаем фигуру по форме
Передвигаем фигуру по форме
Двигаем фигуру по форме, до края и возвращаем в начало координат, получаем цикличность – как бы бег по кругу.
Option Explicit
Const h As Integer = 50
Dim x As Integer, y As Integer
Private Sub Command1_Click()
x = Shape1.Left + h: y = Shape1.Top + h
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Shape1.Move x, y
x = x + h: y = y + h
If x > ScaleWidth And y > ScaleHeight Then
x = 0
y = 0
End If
End Sub