Xwaitdotnet _ procédure d'attente (en millisecondes)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 929 fois - Téléchargée 18 fois

Contenu du snippet

procédure d'attente en ms que j'utilise parfois à la place de threading.thread.sleep(...)

Source / Exemple :


Private Sub xWaitDotnet(ByVal DT As Integer) 'wait sub in milliseconds
Dim StartTick As Integer
StartTick = Environment.TickCount()
While ((Environment.TickCount() - StartTick) <= DT)
Application.DoEvents()
System.Threading.Thread.Sleep(1)
End While
'Application.DoEvents()
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
162
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
20 juillet 2013

C'est un snippet, pas une source :/
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

On ne peut pas appeler çà une source...
Messages postés
371
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013

Bonjour,
Je comprend pas trop l'intérêt, peux-tu développer ?
Merci.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.