interrompere o bloccare una procedura

[g.scardigno]

Salve Ragazzi/e

Al click di un bottone ho creato un procedura che mi esegue diverse operazioni un po pesanti , che richiedono quindi parecchio tempo...
Ora non saprei come far interrompere o addirittura stoppare l'operazione di corso....

Un aiutino grazie.....

[Mabi]

Dipende dal tipo di operazioni... se ad esempio esegui un ciclo:

Dim Ferma As Boolean

Do Until Ferma = True
  'Operazioni
Loop

[iguana13]

Magari così:

Const ESECUZIONE as Integer = 0
Const STOP as Integer = 1

Private Stato as Integer

Sub ProceduraLunga()
'Esegue lunghe operazioni
DoEvents
If Controllo() Exit Sub

'Esegue altre lunghe operazioni
DoEvents
If Controllo() Exit Sub

'Esegue altre lunghe operazioni
DoEvents
If Controllo() Exit Sub

'Esegue altre lunghe operazioni
DoEvents
If Controllo() Exit Sub

'Esegue altre lunghe operazioni

Msgbox "Finito!"

End Sub

Function Controllo() as Boolean
If Stato = STOP  then
    dim a as vbMsgboxResult
    a = MsgBox("Sicuro di voler interrompere?",vbYesNo or vbQuestion)
    If a = vbYes Then
        Controllo = True
    Else
        Controllo = False
    End If
Else
    Controllo = False
End If
Stato = ESECUZIONE
End Function

Private Sub cmdAvvia_click()
Stato = ESECUZIONE
ProceduraLunga()
End Sub


Private Sub cmdStop_click()
Stato = STOP
End Sub

[g.scardigno]

nooooooooo

quelle cose le so gia......


io vorrei che al clik di un bottone parte la procedura ed analogamente mi compare tipo un msgbox(stop/interrompi/continua) che mi potrebbe far uscire dalla procedura!!!!

Come per esempio quando facciamo partire il defreag che possiamo interromperlo o stopparlo quando vogliamo!

Speriamo che questa volta mi sono spiegato meglio...

Cqm grazie...

[iguana13]

Per interrompere l'esecuzione devi guardare il valore di una variabile, nn vedo altre soluzioni.

Nel mio codice Puoi mettere 2 pulsanti (cmdAvvia e cmdStop) che rispettivamente avviano e terminano il processo...