Неправильная анимация движения автомобиля по дороге - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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