Qui è una versione molto di base di che cosa avete bisogno. Avere una forma con un cmdStart dei tre pulsanti di comando, cmdPause e cmdResume, una casella di testo textbox1 e un'etichetta label1.
Ho commentato tutte le linee del codice così eventualmente che potete vedere che cosa sta accendendo:
L'etichetta è là in modo da potete vederli il vostro contatore (e stanno usandolo per conservare il valore del CTR una volta fatto una pausa).
Ha bisogno di un controllo che la casella di testo realmente tiene un valore legale prima che cominciate, io metterebbe questo sotto il pulsante di avvio e soltanto denominerebbe la procedura di incremento se il valore è buon.
Sulle prove esso, se stiate andando appena lasciarli farlo funzionare dovrà usare un valore qualcosa come 20000 o voi non potrà fare una pausa abbastanza velocemente.
Opzione esplicita
Oscurare il runstatus come booleano 'se il ciclo può funzionare oppure no. la forma livellata così tutte le procedure può vederla
cmdPause_Click secondario riservato ()
il runstatus = falso 'ha fissato la condizione in modo da il ciclo si arresterà
Sommergibile dell'estremità
cmdResume_Click secondario riservato ()
nuovo inizio di CLng di incremento (Label1.Caption) 'il conteggio using il valore conservato del contatore
Sommergibile dell'estremità
cmdStart_Click secondario riservato ()
inizio di incremento 1 'il conteggio da 1
Sommergibile dell'estremità
Incremento secondario riservato (CTR come lungamente)
il runstatus = allineare 'si assicura che il ciclo possa funzionare
Fare mentre il runstatus = allinea e CTR <� Val=""> CTR = CTR + 1 'incremento il contatore
Label1.Caption = il CTR 'hanno prodotto il controvalore, using il titolo dell'etichetta come deposito del valore corrente
DoEvents 'così l'etichetta può aggiornare il relativo titolo e permettere che il tasto di pausa sia premuto
Il ciclo 'registra di nuovo il ciclo se gli stati del ciclo sono ancora allineare
Sommergibile dell'estremità
Sono spiacente che ho preso così lungamente per ottenere indietro voi, ma se avete bisogno prego di altra spiegazione chiedere.
