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 :D
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.
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 :
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 :
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 :
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 :
Das ist schon im Text beschrieben.
So.. nun ist unser Programm/Animation fertig. Hier nochmal der gesamte Code :
Das war ein kleines Tutorial, wie ihr eine kleine Animation in euer Programm einbaut.
[Only registered and activated users can see links. Click Here To Register...]
MFG Jusikid :bandit:
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 :D
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.
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
Nun klicken wir doppelt auf den Button Nach oben und geben dort folgendes ein :
PHP Code:
GoingUp = True
Timer1.Enabled = True
Nun klicken wir auf den Button mit der Aufschrift Nach unten und geben dort folgendes ein :
PHP Code:
GoingUp = False
Timer1.Enabled = True
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
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
[Only registered and activated users can see links. Click Here To Register...]
MFG Jusikid :bandit: