Voici une version très de base de de ce que vous avez besoin. Avoir une forme avec le cmdStart de trois boutons de commande, le cmdPause et le cmdResume, une boîte à textes textbox1 et une étiquette label1.
J'ai commenté toutes les lignes du code tellement si tout va bien que vous pouvez voir ce qui continue :
L'étiquette est là ainsi vous pouvez voir votre compteur (et moi l'emploie pour préserver la valeur de CTR une fois fait une pause).
Elle a besoin d'un contrôle que la boîte à textes tient réellement une valeur légale avant que vous commenciez, je mettrait ceci sous le bouton marche et appellerait seulement la routine d'incrément si la valeur est bonne.
À l'essai de elle, si vous allez juste la laisser vous courir devra employer une valeur quelque chose comme 20000 ou vous ne pourra pas faire une pause assez rapidement.
Option explicite
Obscurcir le runstatus comme booléen ', que la boucle puisse fonctionner ou pas. la forme de niveau tellement toutes les procédures peut la voir
cmdPause_Click secondaire privé ()
le runstatus = faux 'a placé le statut ainsi la boucle s'arrêtera
Sous-marin d'extrémité
cmdResume_Click secondaire privé ()
relancement de CLng d'incrément (Label1.Caption) 'le compte using la valeur préservée du compteur
Sous-marin d'extrémité
cmdStart_Click secondaire privé ()
début de l'incrément 1 'le compte de 1
Sous-marin d'extrémité
Incrément secondaire privé (CTR en tant que longtemps)
le runstatus = vrai 's'assurent que la boucle peut fonctionner
Faire tandis que le runstatus = rectifient et CTR <� Val=""> CTR = CTR + 1 'incrément le compteur
Label1.Caption = CTR 'ont produit la contre-valeur, using la légende d'étiquette comme stock de la valeur courante
DoEvents 'ainsi l'étiquette peut mettre à jour sa légende, et permettre à la touche attente d'être pressé
La boucle 'réintroduisent la boucle si les conditions de boucle sont encore vrais
Sous-marin d'extrémité
Je suis désolé que j'aie pris tellement longtemps pour t'arriver en arrière, mais si vous avez besoin de plus d'explication svp demander.
