Wie man Animationen in Visual Basic 6.0

February 16

Wie man Animationen in Visual Basic 6.0

VB 6.0 gehört zu den am häufigsten verwendeten Entwicklungssprachen für Entwickler. VB wird häufig verwendet, zum Erstellen von Anwendungen mit grafischer Benutzeroberfläche und ermöglichen den Zugriff auf Datenbanken. Darüber hinaus können Sie Animationen mit VB 6.0 erstellen, da Steuerelemente X- und Y-Positionen, die geändert werden kann haben, um Bewegungen zur Laufzeit zu erstellen.

Anweisungen

1 Gehen Sie auf "Start", dann "alle Programme." Klicken Sie auf "VisualBasic 6.0." Klicken Sie auf "Datei" und dann "Neu" und wählen Sie "Windowsanwendung" im Dialogfeld "Neues Projekt". Klicken Sie auf "Bild-Steuerelement" und legen Sie sie auf Ihrem Formular. Maustaste auf das Projekt, wählen Sie "Eigenschaften" und klicken Sie auf die Registerkarte "Ressourcen". Fügen Sie der Ressourcen-Manager zwei Hund-Bilder hinzu. Die Hund-Bilder müssen im selben Verzeichnis wie das Projekt ist. In den beiden Bildern ist der Hund entweder nach links oder nach rechts.

2 Doppelklicken Sie auf den Formularhintergrund Form_load-Ereignishandler großzuziehen. Weisen Sie das Hund-Bild, das Links auf das Bildsteuerelement konfrontiert ist. Der Hund kann entlang der Form von links nach rechts oder in die entgegengesetzte Richtung gehen. So gibt es vier Staaten für den Hund: vor, Links oder rechts und gehen nach links oder rechts. Geben Sie den folgenden Code-Enumeration des Hundes vier Zustände definieren:

Enum-DogState

FacingLeftWalkingLeft = 1

FacingLeftWalkingRight = 2

FacingRightWalkingRight = 3

FacingRightWalkingLeft = 4

EndEnum

3 Fügen Sie einen Timer um Bewegung des Hundes zu ändern, indem Sie auf das Symbol "Clock" auf die allgemeine Sidebar. Einstellen des Timers einen Tick auslösen alle 100 Millisekunden. Legen Sie den Ausgangszustand als FacingLeftWalkingLeft und Geschwindigkeit, als 10 Pixel pro Tick, mithilfe des folgenden Codes:

Status = DogState.FacingLeftWalkingLeft

speed = 10

DogImg.Image = My.Resources.Dog4

Bewegen Sie das Bild-Steuerelement Links mit fester Drehzahl, und ändern Sie das Bild. Prüfen Sie die Position des Bild-Steuerelements, wenn es nach links oder rechts bewegt. Stellen Sie sicher, dass das Bild nicht Fuß von der Form. Kippen Sie die Bilder, wenn sie die linken oder rechten Rändern erreicht. Sie können dies erreichen, indem mithilfe der folgenden Fall und If-Else-Klausel:

RS-Bundesland auswählen

Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed

DogImg.Image = My.Resources.Dog2

If DogImg.Left > 5 Then

state = DogState.FacingLeftRightLegs

Else

state = DogState.FacingRightLeftLegs

End If