Faire une pause

Soyez le premier à donner votre avis sur cette source.

Vue 9 206 fois - Téléchargée 798 fois

Description

CE CODE EST POUR LES DÉBUTANT

J'en suis un , donc ne soyez pas trop dure avec moi . :P
Comme le titre le dit, ce code sert a faire une pause.
Sois avant le "loading" d'une form ou sois pour laisser le temp
à l'app. de faire la fonction demander (fonction précédente)
Vous pouvez choisir le temp de la pause en seconde en en dizième de seconde.
Le zip vous montre comment l'utiliser .

Bad*News


Merci .

Source / Exemple :


Private Sub Command1_Click()
Download_the_zip
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
248
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
19 décembre 2008

dans ta boucle de pause, tu y fais
do
doevents
loop until truc >= machin
même si tu garde la main sur le processus, le cpu sera utilisé à 100% (surtout si ça dure plus d'une seconde), ce qui le fait chauffer intuilement.
L'astuce est de faire comme suit :
do
doevents
sleep 1
loop until ...
ainsi il fait un doevents standard, suivi d'une vrai pause d'une milliseconde pour décharger le cpu, ainsi de suite jusqu'a échéance de la boucle (à n'utilisé que si la pause requise est plus grande que 5 millisecondes) l'utilisateur garde la main sur la form, le cpu n'est presque pas utilisé, tout le monde est content :)
Messages postés
98
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
10 septembre 2007
1
Non , tu n'a pas trop comprit.
Si j'aurais fait ca "SendKeys "Ce code ..." toute les lettres aurait été tapé toute en même temp. Si tu l'essaie , tu va voir quil y a un délai entre chaque touche
tappée. Jai donc pas eu le choix de les mettre comme ca.
Sauf peut-être pour le premier , celui sans attente. Tu as a moitier raison . :P

Merci
Messages postés
47
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
30 septembre 2003

j'ai vaguement regardé ta source mais ton :
SendKeys "C"
SendKeys "e"
SendKeys " "
SendKeys "c"
SendKeys "o"
SendKeys "d"
SendKeys "e"
SendKeys " "
SendKeys "a"
SendKeys " "
SendKeys "é"
SendKeys "t"
SendKeys "é"
SendKeys " "
...
aurait pu être remplacé par : sendkeys "Ce code a été..." !!!
Messages postés
98
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
10 septembre 2007
1
Ahh peutêtre que c'est inutile ... désolé
moi c'est des chose que j'ai mit du temp à trouver donc ,
pout les DÉBUTANT, j'ai laissé ce code ici...
Tu as raison hvb , c'est la même technique que
l'autre source. Désolé , je ne l'avaispas vu .

Merci .
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005

cool ! j'ai appris la commande SendKeys, merci !
Afficher les 7 commentaires

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.