[VB 2008] Animationen

[Jay Niize]

Hall ELitepvpers

Heute zeige ich euch, wie ihr mit Visual Basic 2008 kleine Animationen bastelt. Also wir wollen erreichen, dass wir auf einen Button klicken und unsere Animation bewegt sich nach links-oben. Nun klicken wir auf den anderen Button und die Animation bewegt sich zurück, also nach unten-rechts. Na dan Los gehts


Zu aller erst brauchen wir eine Form, also klickt ihr auf Datei-> Neues Projekt-> WIndows Forms Anwendung. Dann zieht ihr aus der Toolbox 2 Buttons, ein Timer und eine Picturebox auf die Form. Nun sucht ihr euch ein Schönes Bild aus, das sich hoch und runter bewegen soll. Dieses Bild fügt ihr dann in die Picturebox ein. Dann beschriften wir die Buttons, den einen mit Nach oben und den anderen mit Nach unten. Und das Times Interval stellen wir auf 75. Das bedeutet, dass das Bild sich je 75 Millisekunden bewegt. Nun perfektionieren wir mal unsere Form, in dem wir die Picturebox unten rechts platzieren.

 Spoiler

Nun kommen wir zum Code. Wir klicken Doppelt auf die Form, damit wir in den CodeEditor kommen. Unter Public Class Form1 tragen wir folgendes ein :

PHP Code:

Dim GoingUp As Boolean 


GoingUp speichert alle Richtungen in Boolean. Ich habe Goingup gewählt, weil bei dieser Animation ja das Bild sich hoch bewegt.

Nun klicken wir doppelt auf den Button Nach oben und geben dort folgendes ein :

PHP Code:

GoingUp = True
Timer1.Enabled = True 


GoingUp = True bedeuted, dass sich das Bild nach oben bewegt, und mit Timer1.Enabled = True wird der Timer gestartet.

Nun klicken wir auf den Button mit der Aufschrift Nach unten und geben dort folgendes ein :

PHP Code:

GoingUp = False
Timer1.Enabled = True 


GoingUp = False bedeuted, das es nach Unten fährt und NICHT nach oben, und mit dem Timer, wired der Timer wieder eingeschaltet, in den nun folgender Code hinein programmiert wird :

PHP Code:

        If GoingUp = True Then
            //Bewegt PictureBox-Objekt zum oberen Fensterrand
            If PictureBox1.Top > 10 Then
                PictureBox1.Location = New Point _
                  (PictureBox1.Location.X - 10, _
                  PictureBox1.Location.Y - 10)
            End If
        Else
            //Bewegt PictureBox-Objekt zum unteren Fensterrand
            If PictureBox1.Top < (Me.Size.Height - 95) Then
                PictureBox1.Location = New Point _
                  (PictureBox1.Location.X + 10, _
                  PictureBox1.Location.Y + 10)
            End If
        End If 


Das ist schon im Text beschrieben.
So.. nun ist unser Programm/Animation fertig. Hier nochmal der gesamte Code :

PHP Code:

Public Class Form1
    Dim GoingUp As Boolean  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GoingUp = True
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GoingUp = False
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GoingUp = True Then
            
            If PictureBox1.Top > 10 Then
                PictureBox1.Location = New Point _
                  (PictureBox1.Location.X - 10, _
                  PictureBox1.Location.Y - 10)
            End If
        Else
            
            If PictureBox1.Top < (Me.Size.Height - 95) Then
                PictureBox1.Location = New Point _
                  (PictureBox1.Location.X + 10, _
                  PictureBox1.Location.Y + 10)
            End If
        End If

    End Sub
End Class 


Das war ein kleines Tutorial, wie ihr eine kleine Animation in euer Programm einbaut.



MFG Jusikid

[ηøℓι]

Für die Anfänger ganz gut! THX!

Greetz.