comment creer un point d'arret avec un temps deffini

Question

voila! je desir afficher un label pendant un certain temps, 
une fois le temps deffini ecoulé, le prog doit retourner au boulo!

quelle fonction dois je utiliser afin de definir ce temps d'arret ?

merci a tous! je n'ai pas trouvé la bonne fonction dans mes msdn! seul fonction que j'ai trouvé c'est stop, mais ca n'a pas l'air de fonctionner! ou alors je suis mauvais! je n'arrive pas a deffinir le temps de pose!

juvamine · Answer

dans un module :
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

a lendroit ou tu veux faire ta poz:
Sleep (TpsEnMilliSeconde)
'pour une seconde : sleep (1000)

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

lucky2222 · Answer

ok merci, ca marche!

j'ai  juste dû rajouter "Form1.Refresh" avant la ligne "Sleep (4000)"

sinon le label n'apparaissait pas! la form etait blanche!

comme ceci

For i = 0 To NbSeparateur
Label1.Caption = "Histoire drole" & vbCrLf & Split(Chaine, "/")(i)
FormEcran.Refresh

Sleep (4000)
Next i

merci encore a l'equipe

juvamine · Answer

For i = 0 To NbSeparateur
Label1.Caption = "Histoire drole" & vbCrLf & Split(Chaine, "/")(i)
DoEvents

Sleep (4000)
Next i

le doevents est a mon avis plus élégant...vérifie ke ca marche

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

Comment creer un point d'arret avec un temps deffini

3 réponses