Animation

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

Salut Slante,


Y'a plusieurs solutions:

Tu peux utiliser un timer dans lequel tu places

image.left = image.left - UneValeurNumérique


++

Zlub

Bonjour,

Place un contrô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

Salut,


Un peu brutale de boucler ainsi vu que le processeur va mouliner comme un dingue pour pas grand chose, mais ça marche aussi ...

Preuve qu'il a de nombreuse solutions

++

Zlub

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

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

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

jpleroisse

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