и зеркально отражаем их

        Кадр1_правый.RotateFlip(RotateFlipType.RotateNoneFlipX)      ' и зеркально отражаем их направо
        Кадр2_правый.RotateFlip(RotateFlipType.RotateNoneFlipX)
        Кадр3_правый.RotateFlip(RotateFlipType.RotateNoneFlipX)
        PictureBox1.BorderStyle = BorderStyle.None
        PictureBox1.BackColor = Color.Transparent
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        PictureBox1.Image = Кадр1_левый                                             'Ставим человечка в исходное положение
        Timer1.Enabled = False                                                                'Пусть стоит на месте
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case N
            Case 0 : PictureBox1.Image = Кадр1
            Case 1 : PictureBox1.Image = Кадр2
            Case 2 : PictureBox1.Image = Кадр3
            Case 3 : PictureBox1.Image = Кадр2
        End Select
        N = (N + 1) Mod 4
        PictureBox1.Left = PictureBox1.Left + dx
    End Sub
    'Кнопка движения направо:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dx = 10
        Кадр1 = Кадр1_правый                                                        'Все рабочие кадры будут правыми
        Кадр2 = Кадр2_правый
        Кадр3 = Кадр3_правый
        Timer1.Enabled = True                                                         'Надо идти
    End Sub
    'Кнопка движения налево:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        dx = -10
        Кадр1 = Кадр1_левый                                                         'Все рабочие кадры будут левыми
        Кадр2 = Кадр2_левый
        Кадр3 = Кадр3_левый
        Timer1.Enabled = True                                                         'Надо идти
    End Sub

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---