Im Vergleich zu strukturierten Programmen fügt Visual Basic den Objekten die „Methoden“-Funktion hinzu. Die vollständige Beherrschung dieser von Objekteigenschaften verschiedenen „Methode“ ist für die Entwicklung von Visualisierungsanwendungen äußerst wichtig. Nehmen Sie im Folgenden die Bewegungsmethode von VB4.0 als Beispiel, um die Anwendung dieser Methode in der Animation zu veranschaulichen.
In diesem Beispiel wollen wir die Move-Methode verwenden, um den Flugvorgang eines Schmetterlings abzuschließen. Durch die Unterbrechung des Timers wird in bestimmten Abständen (in diesem Fall 0,2 Sekunden) die Position des Schmetterlings auf dem Bildschirm verschoben und die Form des Schmetterlings verändert (Flügel ausbreiten und einziehen), so dass der vorübergehende Effekt von Vision wird verwendet, um die Flugszene des Schmetterlings zum Leben zu erwecken. Die Bewegung der Position des Schmetterlings wird durch die Move-Methode realisiert. Das von der Move-Methode verwendete Format ist wie folgt:
Object.moveleft,top
Darunter ist links die horizontale Koordinate der linken Grenze des Objekts (X-Achse) und oben die vertikale Koordinate der oberen Grenze des Objekts (Y-Achse). In diesem Beispiel die Objektbox (Bildbox). heißt main.
Das Bild der ausgebreiteten und gefalteten Flügel des Schmetterlings wird von der Bitmap-Datei bfly1.bmpbfly2.bmp bereitgestellt. Bei Bedarf können andere fliegende Bitmap-Dateien erstellt werden, um den Effekt realistischer zu gestalten.
In diesem Beispiel werden die Formularstruktur und die Eigenschaften jedes Objekts wie folgt festgelegt:
Objekteigenschafteneinstellungen
Bildunterschrift: Schmetterlingsflug-Animationsdesign
Bildrahmennamemain
Bildbfly1
Bildrahmennameopenwings
Bildbfly1
Bildrahmennameclosewings
Bildbfly2
Befehlsfeldnamecommand1
BildunterschriftBeenden
Timernametimer1
Intervall200
Das entsprechende Programm ist relativ einfach, der Code lautet wie folgt:
Timer-Interrupt-Programm:
PRivateSubTimer-Timer()
StaticPickBmpAsInteger
Main.MoveMain.Left 20,Main.Top-5
IfPickBmpThen
Main.Picture=OpenWings.Picture'Zeigt das geöffnete Schmetterlingsbild an.
Anders
Main.Picture=CloseWings.Picture'Zeigt das geschlossene Schmetterlingsbild an.
EndIf
PickBmp=NotPickBmp'Wert umschalten.
EndSub
Exit-Taste (Exit) Programm:
PrivateSubCommand1-Click()
Entlade mich
Ende
EndSub
Auf diese Weise kann ein komplexeres Animationsdesign erreicht werden, indem die Move-Methode von VB und andere Objekteigenschaften verwendet werden. ->