Par rapport aux programmes structurés, Visual Basic ajoute la fonction « méthode » des objets. La maîtrise complète de cette « méthode » différente des propriétés des objets est extrêmement importante pour le développement d’applications de visualisation. Ci-dessous, prenons la méthode move de VB4.0 comme exemple pour illustrer l'application de cette méthode en animation.
Dans cet exemple, nous souhaitons utiliser la méthode move pour terminer le processus de vol d’un papillon. Grâce à l'interruption du minuteur, à certains intervalles (0,2 seconde dans ce cas), la position du papillon est déplacée sur l'écran et la forme du papillon est modifiée (ailes déployées et rétractées), de sorte que l'effet temporaire de la vision est utilisée pour voir le papillon prendre vie sur la scène de vol. Le mouvement de la position du papillon est réalisé par la méthode move Le format utilisé par la méthode move est le suivant :
Objet.moveleft,top
Parmi eux, left est la coordonnée horizontale de la limite gauche de l'objet (axe des x) et top est la coordonnée verticale de la limite supérieure de l'objet (axe Y). Dans cet exemple, la boîte d'objet (imagebox). est nommé principal.
L'image des ailes déployées et repliées du papillon est fournie par le fichier bitmap bfly1.bmpbfly2.bmp, et d'autres fichiers bitmap volants peuvent être produits si nécessaire pour rendre l'effet plus réaliste.
Dans cet exemple, la structure du formulaire et les propriétés de chaque objet sont définies comme suit :
Paramètres des propriétés de l'objet
Conception d'animation de vol de papillon de légende de formulaire
nom du cadre d'imagemain
photobfly1
nom du cadre d'imageopenwings
photobfly1
imageframenameclosewings
photobfly2
nom de la boîte de commandecommand1
légendeQuitter
nom de la minuterietimer1
intervalle200
Le programme concerné est relativement simple, le code est le suivant :
Programme d'interruption de minuterie :
PRivateSubTimer-Timer()
StaticPickBmpAsInteger
Main.MoveMain.Left 20,Main.Top-5
SiChoisirBmpAlors
Main.Picture=OpenWings.Picture'Affiche l'image du papillon ouvert.
Autre
Main.Picture=CloseWings.Picture'Affiche l'image du papillon fermé.
FinSi
PickBmp=NotPickBmp'Basculelavaleur.
FinSub
Programme du bouton de sortie (sortie) :
PrivateSubCommand1-Click()
Décharge-moi
Fin
FinSub
De cette manière, une conception d'animation plus complexe peut être réalisée en utilisant la méthode move de VB et d'autres propriétés d'objet. ->