Допоможіть з анімацією по Visual Basic!

[percev20]

Завдання:Потрібно створити анімацію руху картінки, яка відбивається від стін форми, та від обєкта розміщеного в будь-якому місці на формі.
Написаний лістінг для відбитя картінки від стін форми:
Dim x As Integer
Dim y As Integer

Private Sub Form_Load()
x = 100
y = 100

End Sub

Private Sub Timer1_Timer()
Image1.Left = Image1.Left + x
Image1.Top = Image1.Top + y
If Image1.Left > Me.Width Then
x = x * -1
End If
If Image1.Left < 0 Then
x = x * -1
End If
If Image1.Top > Me.Height Then
y = y * -1
End If
If Image1.Top < 0 Then
y = y * -1
End If

End Sub

Допоможіть, щоб Image відбивався від обєкта. Наприклад: Кнопки, лінії....

[С.М.С]

Извините, но не совсем понял в чём вопрос. Изхожу из того, что код не работает. Поэтому добавьте следующие строки. Если дело ни в этом переведите, пожалуйста свой вопрос.

 
Dim x As Integer
Dim y As Integer

Private Sub Form_Load()
x = 100
y = 100

Timer1.Interval = 100
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Image1.Left = Image1.Left + x
Image1.Top = Image1.Top + y
If Image1.Left > Me.Width Then
x = x * -1
End If
If Image1.Left < 0 Then
x = x * -1
End If
If Image1.Top > Me.Height Then
y = y * -1
End If
If Image1.Top < 0 Then
y = y * -1
End If

End Sub

[percev20]

Суть, создати програму в якій переміщається Image довільно по формі відбиваючись від країв форми, потрібно добавити обєкт на форму який би відбивав Image, служив би як перешкода.

[С.М.С]

Так в чём проблема? добавьте два следующих оператора:
Timer1.Interval = 100
Timer1.Enabled = True
Первый устанавливает интервал срабатывания таймера
Второй запускает таймер

В свойствах Image > Picture укажите, картинку, которая будет двигаться.

[percev20]

Image рухається тільки треба описати обмеження щоб Image відбивався не тільки від сторін форми, а й від обєкта наприклад бутона або лінії.

[С.М.С]

К примеру так для двух линий, Line1 расположена вертикально, Line2 горизонтально.

If Image1.Left + Image1.Width > Line1.X1 Then
If Image1.Left + Image1.Width > Line1.X1 And Image1.Left + Image1.Width > Line1.X2 And Image1.Top + Image1.Height > Line1.Y1 And Image1.Top < Line1.Y2 Then
x = x * -1
End If
End If

If Image1.Left > Line1.X1 Then
If Image1.Left > Line1.X1 And Image1.Left > Line1.X2 And Image1.Top + Image1.Height > Line1.Y1 And Image1.Top < Line1.Y2 Then
x = x * -1
End If
End If

If Image1.Top + Image1.Height > Line2.Y1 Then
If Image1.Left + Image1.Width > Line2.X1 And Image1.Left < Line2.X2 Then
y = y * -1
End If
End If

If Image1.Top > Line2.Y1 Then
If Image1.Left + Image1.Width > Line2.X1 And Image1.Left < Line2.X2 Then
y = y * -1
End If
End If