Faire une pause pendant l'exe du code

Question

salut a tous,

je code en vba et j'ai 1 pb.j ai l'ouverture d 1 formulaire dans une boucle, mais l ouverture de ce form ne ce passe que 1 seul fois.
doonc je voudrais savoir si il est possible de realiser une pause dans le code le temps que le formulaire soit valider.

si qq1 a une idee

merci d'avance

@++

cs_DARKSIDIOUS · Answer

Il est possible de faire une pause dans l'éxécution du programme grâce à l'API SleepEx. Va voir la rubrique API du site www.ProgOtoP.net pour avoir plus d'info sur l'api ;-)

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

DadaPik · Answer

Fonction Sleep

Declare Sub Sleep Lib "kernel32" ( _
                 ByVal dwMilliseconds As Long)
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui

Description :
Cette fonction permet de suspendre pour un temps donné l'application courante. 
dwMilliseconds est la durée de mise en sommeil en millisecondes. 
Attention, durant toute cette période, la fenêtre de l'application ne sera pas mise à jour (rafraîchit). D'une certaine façon, l'application est gelée durant ce laps de temps.

Exemple d'utilisation :

' Dans une feuille vierge, placez un contrôle Shape à qui vous définirez à
' la création les propriétés suivantes:
' Shape = Circle
' FillStyle = Solide
' Placez ensuite un CommandButton.
' Le click sur le bouton provoquera l'allumage du cercle en couleur avec un
' cadencement à la seconde.
' Voici le programme:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
' Temporisation 1 sec
Dim I As Integer
For I = 0 To 15
    Shape1.Refresh
    Sleep 1000
    Shape1.FillColor = QBColor(I)
    Beep
Next I
End Sub

David :shy)

Faire une pause pendant l'exe du code

2 réponses

Discussions similaires