Неправильная анимация движения автомобиля по дороге - Visual Basic .NET

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

Господа создаю программку (исходник прикрепил) не как не получается сделать анимацию правого автомобиля , хочется чтобы правый двигался так же как и левый авто в связи с чем прошу вашей помощи в решение этой задачи . сам любитель поэтому делал программку по этому не судите строго!

Код к задаче: «Неправильная анимация движения автомобиля по дороге - Visual Basic .NET»

textual
    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        If Tv3 = "on" Then
            PictureBox6.Visible = False
 
            PictureBox4.Left = PictureBox4.Left - 4
 
            PictureBox4.Height = PictureBox4.Height - 1
            PictureBox4.Width = PictureBox4.Width + 4
        End If
 
        If PictureBox4.Height >= Form1.ActiveForm.Height + 200 - PictureBox4.Width Then ' Если картинка достигла края формы(почти у каждого объекта есть свойства Width(ширина) и Height(высота)(в окне свойств они входят в разворачивающий список 'Size') Так вот, Form1.ActiveForm.Width - ширина формы(чтобы изменить свойства формы, в VB.Net надо писать не Form1.Свойство, а Form1.ActiveForm.Свойство), PictureBox1.Width - ширина картинки. От ширины формы отнимаем ширину картинки, и получаем край формы. Блин.. чё - то я в объяснениях перестарался :-))
            ' Двигаем картинку в другом направлении:
            PictureBox4.Visible = True
            PictureBox6.Visible = True
 
 
            Timer5.Enabled = False
        End If
    End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.900 из 5


СДЕЛАЙТЕ РЕПОСТ