[VB]Executer un timer

Bonjour, je voudrai savoir si c'etait possible d'executer un timer qu'une seule fois.
Puisque quand je fait form1.timer1.enabled = true il s'execute indéfiniment.
j'ai donc mis un form1.timer1.enabled = false juste apres mais du coup l'action du timer ne s'execute plus.

Merci

Citation:

---

Envoyé par dureiken

j'ai donc mis un form1.timer1.enabled = false juste apres...

---

juste après quoi ?

dans l'événement Timer ?

Bonjour,
Voici un exemple d'utilisation du contrôle Timer (ici pour décrémenter un compteur.)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim cpt As Integer   Private Sub Form_Load() cpt = 10 Label1.Caption = cpt Timer1.Interval = 1000 'L'interval est en millisecondes End Sub   Private Sub Timer1_Timer() cpt = cpt - 1 Label1.Caption = cpt If cpt = 0 Then Timer1.Interval = 0 Label1.Caption = "Go" End If End Sub

---

jpleroisse

j'ai fait ca :
Code : VB

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Function monter()   ascenseur.Top = ascenseur.Top - 10 ascenseur.Show batiment.Timer1.Enabled = False   End Function   Public Function monter2()   For i = 1 To 500 ascenseur.Show batiment.Timer1.Enabled = True Next i     End Function

---

et dans batiment ( ma premiere form )
Code : VB

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() functions.monter2   End Sub     Private Sub Timer1_Timer() functions.monter   End Sub

---

mais quand je fais ca l'ascenseur ne monte qu'une fois

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

en fait j'ai fait un timer qui toutes les .1 seconde fait monter ma fenetre, en meme temps un 2eme timer qui s'active 5 secondes plus tard fait un timer1.enabled = false.

ca marche mais des fois la fenetre monte de 3cm on va dire, des fois 5, je comprends pas.

Bonjour,
Ton ascenseur, c'est une Form?? (ascenseur.Show)
A quoi sert ta boucle For i = 1 to 500 ??

jpleroisse

Peut être en désactivant puis réactivant tes timer à chaque éxécution parce qu'avec des temps d'intervalle si court VB doit s'emméler un peu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Timer1_Timer() Timer1.Enabled = False Form1.Top = Form1.Top - 20 Timer1.Enabled = True End Sub   Private Sub Timer2_Timer() Timer2.Enabled = False Timer1.Enabled = IIf(Timer1.Enabled, False, True) Timer2.Enabled = True End Sub

---

Enfin bon moi c'est une habitude que j'ai pris.

Bigyork => ca fait toujours pareil, ca monte pas toujours de la meme hauteur

jp => la boucle c"etait pour le faire monter 500 fois de la petite distance 10

Citation:

---

Envoyé par dureiken

Bigyork => ca fait toujours pareil, ca monte pas toujours de la meme hauteur

jp => la boucle c"etait pour le faire monter 500 fois de la petite distance 10

---

C’est normal ta boucle de 500 fois elle ne fait pas grand chose... elle demande d'afficher 500 fois de suite l'ascenseur tout en mettant à 1 le timer... mais.. l'ascenseur à tous juste le temps de s'afficher une fois que la boucle s'est exécutée 500 fois il n'y a rien qui l'arrête... essai ::

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

dim i As integer Public Function monter()   ascenseur.Top = ascenseur.Top - 10 ascenseur.Show batiment.Timer1.Enabled = (i > 0) 'Rappel du timer si i >0 i=i-1   End Function   Public Function monter2()   ascenseur.Show batiment.Timer1.Enabled = True i = 500 'initialise le compteur à 500   End Function

---

Bonjour,
Ce code fait monter et descendre ta Form pendant 10 secondes.
Dans ta Form Batiment.

Code:

---

1 2 3 4 5

Private Sub Command1_Click() ascenseur.Top = 10 ascenseur.Show End Sub

---

Dans ta Form ascenseur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Dim cpt As Integer Private Sub Form_Load() cpt = 10 Me.Top = 10 Timer1.Interval = 1000 End Sub   Private Sub Timer1_Timer() cpt = cpt - 1 If Me.Top = 10 Then Me.Top = 3000 Else Me.Top = 10 End If If cpt = 0 Then Timer1.Interval = 0 End If End Sub

---

jpleroisse

ok merci bbil ta solution marche nickel
merci jp aussi