Движение объектов - VB

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

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

На сессию надо сдать программу, которая двигает Image1 по форме направо, вниз и налево. Так вот. У меня получился такой код.
Дело в том, что я не могу двинуть объект влево, не получается. Остальные две переменные работают как надо.

Решение задачи: «Движение объектов»

textual
Листинг программы
Option Explicit
Dim dx As Double  'приращение координаты по x
Dim dy As Double  'приращение координаты по y
Dim mode As Long  'определяет направление
 
Private Sub Command1_Click()
Form_Load
mode = 0
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
Image1.Left = 0
Image1.Top = 0
dx = Screen.TwipsPerPixelX * 2 'шаг = 2 пикселя
dy = Screen.TwipsPerPixelY * 2
Timer1.Interval = 20
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
With Image1
  Select Case mode
  Case 0 'движение вниз
    .Left = .Left + dx
    If .Left >= Me.Width - .Width - 120 Then mode = 1
  Case 1 'движение вниз
    .Top = .Top + dy
    If .Top >= Me.Height - .Height - 500 Then mode = 2
  Case 2 'движение влево
    .Left = .Left - dx
    If .Left <= 0 Then Timer1.Enabled = False
  End Select
End With
End Sub

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы