Animation

Question

Bonjour
Voila, je cheche le code qui me permettrait a une image ou un objet de traverser l'ecran dans une zone bien definie
ex. un avion qui traverserai de droite a gauche , parti haute de l'ecran
Je n'ai pas la moindre idee du code, est ce qu'il y a un  bon "web site" sur le sujet
Merci d'avance

Zlub · Answer

Salut Slante,


Y'a plusieurs solutions:



Tu peux utiliser un timer dans lequel tu places 



image.left = image.left - UneValeurNum&#233;rique

++

Zlub

jpleroisse · Answer

Bonjour,

Place un contr&#244;le Image et un CommandButton sur ta Form.

Private Sub Command1_Click()
Dim intCompteur As Integer
For intCompteur = 0 To 6000 Step 5
Image1.Left = intCompteur
Next intCompteur
End Sub


Private Sub Form_Load()
Image1.Left = 220
Image1.Top = 330
Image1.Picture = LoadPicture("C:\Program Files\microsoft Visual Studio\Common\Graphics\Icons\Industry\plane.ico")
End Sub

jpleroisse

Zlub · Answer

Salut,

Un peu brutale de boucler ainsi vu que le processeur va mouliner comme un dingue pour pas grand chose, mais &#231;a marche aussi ...



Preuve qu'il a de nombreuse solutions

++

Zlub

slante · Answer

Dois je importer la classe graphique ou autre, load picture returns sytax error
merci

jpleroisse · Answer

Bonjour,
Non, s'il met erreur de syntaxe, tu as s&#251;rement une erreur dans l'&#233;criture du code.Fais un copier/coller, sinon supprime cette ligne de code et place une

jpleroisse · Answer

Bonjour,
Je repost, car l'autre a foir&#233;.
Non, s'il met erreur de syntaxe, tu as s&#251;rement une erreur dans l'&#233;criture du code.Fais un copier/coller, cel&#224; fonctionne tr&#232;s bien chez moi,sinon supprime cette ligne de code et place une icone en passant par la page de propri&#233;t&#233; de l'image.

jpleroisse

slante · Answer

J'ai place le code dans leform3 load car je veux que l'animation commence aussitot que la forme est ouverte, mais sans succes, je veux que l'aniamtion dure dans que la page est ouverte
Comme ils disent en irelande, je suis thick headed



Dim myForm 
As 
New frmBoard

Private 
Sub Form3_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load
'Sounds.PlayWavResource("duckquack.wav")
Private 
Sub Command1_Click()

Dim intCompteur 
As 
Integer
For intCompteur = 0 
To 6000 
Step 5
Image1.Left = intCompteur

Next intCompteur

End 
Sub
Private 
Sub Form_Load()Image1.Left = 220
Image1.Top = 330

End 
Sub

Thank you

Animation

7 réponses

Discussions similaires