Comic Animation programmieren mit Visual Basic VBA Excel

Comic Animation programmieren mit Visual Basic VBA Excel

Author D.Selzer-McKenzie

Video: https://youtu.be/8Ccx-NoORfw

 

Heute zeige ich Ihnen, wie Sie mit wenig Code eine Commic Animation programmieren können. Hier als Beispiel: ein Dino und ein Vogel bringen einen Roulettekessel zum Drehen.

Den SourceCode können Sie kostenlos im Forum

http://Outbackbrumby.Blogspot.com

herunterladen.

 

Hier der SourceCode:

Public Class Form1

 

    Private bmp2 As Bitmap = My.Resources.dino3 'Dino

    Private bmp1 As Bitmap = My.Resources.dino6 'Vogel

    Private bmp3 As Bitmap = My.Resources.RoulettekesselDrehung 'Roulette

    Private Sub OnNextFrame(ByVal o As Object, ByVal e As EventArgs)

        Me.Invalidate()

    End Sub

    Public Sub New()

        InitializeComponent()

        SetStyle(ControlStyles.UserPaint, True)

        SetStyle(ControlStyles.AllPaintingInWmPaint, True)

        SetStyle(ControlStyles.DoubleBuffer, True)

        If ImageAnimator.CanAnimate(bmp1) Then

            ImageAnimator.Animate(bmp1, AddressOf Me.OnNextFrame)

        End If

        If ImageAnimator.CanAnimate(bmp2) Then

            ImageAnimator.Animate(bmp2, AddressOf Me.OnNextFrame)

        End If

        If ImageAnimator.CanAnimate(bmp3) Then

            ImageAnimator.Animate(bmp3, AddressOf Me.OnNextFrame)

        End If

    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

        e.Graphics.DrawImage(bmp3, 200, 70) 'ist Roulettekessel

        e.Graphics.DrawImage(bmp2, 190, 80) 'ist Dino

        e.Graphics.DrawImage(bmp1, 570, 80) 'ist Vogel

        ImageAnimator.UpdateFrames()

    End Sub

 

End Class

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::