Неправильная анимация движения автомобиля по дороге - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д