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