Do Until img.LEFT

Question

Bonjour a tous,

Je voudrais faire bouger une image vers la droite jusqu'&#224; temps quel soit a une position fixe dans le form. Ensuite je voudrais quel bouge vers le haut et quel redescente...

J'ai commencer par le mouvement a droite...

Option Explicit
Private intBougeChien As Integer
Private bytCompte As Byte


Private Sub Form_Load()

tmrDog.Enabled = True

'////////////////////////////////////
'Variable pour bouger le chien

intBougeChien = 30
bytCompte = 3
End Sub


Private Sub tmrDog_Timer()


bytCompte = 3


Do Until (bytCompte = 0)
imgDog.Left = imgDog.Left + 100
bytCompte = bytCompte - 1
Loop


'Test du timer de until... ( ne pas en tenir compte )
tmrDog.Enabled = False
MsgBox "simple test..."
End Sub

R&#233;sultat l'image ne bouge qu'une seul fois et sa arrete le timer...

Il y aurait-il une autre facon pour obtenir ce r&#233;sultat... ?

Merci d'avance

YaMO_o · Answer

Bon j'ai laisser faire le UNTIL j'y suis aller avec les IF

Private Sub tmrDog_Timer()


imgDog.Move imgDog.Left + 50


If imgDog.Left >= 1500 Then
imgDog.Top = imgDog.Top - 50
End If


If imgDog.Top <= 3000 Then
imgDog.Top = imgDog.Top + 50
End If



End Sub

le probleme c'est que mon image redescent pas comme je le veut... je vois pas redescendre l'image

PCPT · Answer

salut, un timer? pourquoi faire Private Sub Form_Load() Me.Width = 6000 Me.Height = 7000 ImgDog.Top = 2500 ImgDog.Left = 3000 End Sub ' ' Private Sub Command1_Click() 'décale à gauche Do While ImgDog.Left > 100 ImgDog.Left = ImgDog.Left - 30: DoEvents Loop 'monte doucement en haut Do While ImgDog.Top > 500 ImgDog.Top = ImgDog.Top - 10: DoEvents Loop 'redescend plus rapidement Do While ImgDog.Top < 5500 ImgDog.Top = ImgDog.Top + 50: DoEvents Loop End Sub Coloration syntaxique automatique [AFCK] PCPT

Do Until img.LEFT

2 réponses

Discussions similaires