vb6 + le contôle timer

salut a tous,
je cheche comment utiliser Timer pour bloquer l'exécution du code durant X secondes
et merci d'avance.

je vais expliquer:
j'aimerai bien faire une pause (sleep 10 à 15 sec) de l'excution de mon application puis continue l'execution .
j'attend votre aide et merci .

J'utilise cette fonction.
Pas besoin d'utiliser le controle Timer.
La fonction Timer() renvoi le nombre de secondes depuis le démarrage de Windows.

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub Wait(ByVal Duree As Single) 'Permet d'effectuer une pause dans le déroulement du programme 'Paramétre : ' Duree : Durée de la pause en seconde Dim TimerDeb As Single   TimerDeb = Timer Do While (Timer - TimerDeb) < Duree Loop End Sub

---

Citation:

---

Envoyé par Najdar

J'utilise cette fonction.
Pas besoin d'utiliser le controle Timer.
La fonction Timer() renvoi le nombre de secondes depuis le démarrage de Windows.

...

---

non depuis minuit :

Citation:

---

Envoyé par MSDN VB

Renvoie une valeur de type Single représentant le nombre de secondes écoulées depuis minuit.

---

..? que ce passe t'il avec ton code ....juste avant minuit..? ;)

Ok pour éviter une boucle infinie, j'ajoute Abs()

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub Wait(ByVal Duree As Single) 'Permet d'effectuer une pause dans le déroulement du programme 'Paramétre : ' Duree : Durée de la pause en seconde Dim TimerDeb As Single   TimerDeb = Timer Do While Abs(Timer - TimerDeb) < Duree Loop End Sub

---

De toute façon, mais clients / utilisateurs dorment à minuit ! ;)

merci pour votre aide,j'ai trouvé un fonction qui me permet de faire ça ,la voila car elle peux servira d'autre personne :

Code:

---

1 2 3 4

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long) 'ds la partie declaration   'mettre cette instruc ds votre code ou tu veux faire la pause sleep(10000) ' 10000Milliseconde = 10 sec

---