Aquí está una versión muy básica de lo que usted necesita. Tener una forma con el cmdStart de tres botones de comando, cmdPause y cmdResume, un textbox textbox1 y una etiqueta label1.
He comentado todas las líneas del código tan esperanzadamente que usted puede ver qué se está encendiendo:
La etiqueta está allí así que usted puede ver su contador (y me lo están utilizando para preservar el valor del CTR cuando está detenido brevemente).
Necesita un cheque que el textbox lleve a cabo realmente un valor legal antes de que usted comience, yo pusiera esto debajo de la tecla de partida y llamara solamente la rutina del incremento si el valor es buen.
En la prueba de él, si usted apenas va a dejarlo funcionarle con necesitará utilizar un valor algo como 20000 o usted no podrá detenerse brevemente rápidamente bastante.
Opción explícita
Amortiguar el runstatus como boleano 'si el lazo puede funcionar o no. la forma llana tan todos los procedimientos puede considerarlo
cmdPause_Click secundario privado ()
el runstatus = falso 'fijó el estado así que el lazo parará
Submarino del extremo
cmdResume_Click secundario privado ()
recomenzar de CLng del incremento (Label1.Caption) 'la cuenta usar el valor preservado del contador
Submarino del extremo
cmdStart_Click secundario privado ()
comienzo del incremento 1 'la cuenta a partir de la 1
Submarino del extremo
Incremento secundario privado (CTR como de largo)
el runstatus = verdad 'se cerciora de que el lazo pueda funcionar
Hacer mientras que el runstatus = verdad y CTR <� Val=""> CTR = CTR + 1 'incremento el contador
Label1.Caption = el CTR 'hicieron salir el contravalor, usar el subtítulo de la etiqueta como almacén del valor actual
DoEvents 'la etiqueta puede poner al día tan su subtítulo, y permitir que el botón de pausa sea presionado
El lazo 'entra el lazo de nuevo si las condiciones del lazo son todavía verdades
Submarino del extremo
Lo siento que duré tan para volverle, pero si usted necesita más explicación por favor pedir.
