Движение фотографии в ImageBox - VB
Формулировка задачи:
Помогите написать программу на визуал бейсик 6.0 ,чтобы фотка в имиджбокс двигалась вот по этой схеме
Решение задачи: «Движение фотографии в ImageBox»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д