pause

Salut comment fait-on pour placer le programme
en pause jusque quand on clic sur un boutton
Merci

un CommandButtion avec 2 positions:

Dim Arret As Boolean

Private Sub Command1_Click()
Arret = Not Arret
If Arret Then
Command1.Caption = "LANCER"
Else
Command1.Caption = "PAUSE"
End If
End Sub

ensuite tu met ça à l'endroit où tu veux bloquer le programme:

While Arret
DoEvents
Wend

Il existe l'API Sleep ki bolque le programme pendant un temps donné mai je ne suis pas sur que ce soit ca que tu veuilles faire. Si ca ne te va pas precise un peu la situation a la kelle ca doit s'appliker.

'API pour marquer une pause
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

The Pingouin

6 secondes d'ecart ...

The Pingouin

Oui, qu'entends-tu par "pause" ? Que ton programme ne fasse rien ? (si c'est cà, utilise Sleep comme le préconise Pingouin). Si tu veux éxécuter du code d'une autre fonction, alors lance-là dans le Button_Click
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Les éternels débats entre Sleep et une boucle avec DoEvents ...
ça me fait à chaque fois

Vala
Jack
NB : Je ne répondrais pas aux messages privés