Движение фотографии в ImageBox - VB

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

Помогите написать программу на визуал бейсик 6.0 ,чтобы фотка в имиджбокс двигалась вот по этой схеме

Код к задаче: «Движение фотографии в ImageBox - VB»

textual
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
Static T!, L!
If L = 0 Then L = (ScaleWidth - Image1.Width) / 2
Image1.Top = T
T = T + 10
If T > ScaleHeight Then T = 0
Image1.Left = L
L = (ScaleWidth - Image1.Width) / 2 + Sin(T / 1000) * ScaleWidth / 4
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ