Pause [resolu] - VB/VBA/VBS - Programmation
Marsh Posté le 27-06-2006 à 17:22:14
Sub PauseTimer(ByVal nSecond As Single)
Dim t0 As Single
'temps de référence
t0 = Timer
'boucle d'attente
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
'si on dépasse minuit,il faut
'retrancher un jour
If Timer < t0 Then
t0 = t0 - 24 * 60 * 60
End If
Loop
End Sub
Marsh Posté le 27-06-2006 à 18:47:12
à vue d'oeil le programme de lhonolulu laisse les événements s'éxécuter, simplement il fait une pause dans la procédure courante.
Pour faire une "vraie" pause qui freeze carrément le logiciel tu peux utiliser la fonction API Sleep(temps en ms).
Marsh Posté le 27-06-2006 à 19:31:34
Citation : Wait, méthode |
Marsh Posté le 27-06-2006 à 17:19:43
Bonjour,
j'aimerais qu'apres la selection d'une valeur le programme fasse une pause d'un tps que je définirai!
merci
Message édité par lden le 28-06-2006 à 10:42:30