[vb6] break a livello di routine

[Barbastreyo]

Originariamente inviato da sebamix
Allora metti un tasto e nel click:

Private Sub Command1_Click...
    If MsgBox("Interrompere?", vbQuestion+VbYesNo,"")=vbYes Then
        Command1.Tag="stop"
    End If
End Sub

(Command1 è il tasto che hai messo).

E nella routine, dentro il ciclo:

    If Command1.Tag="stop" Then
        Exit Sub/Function
    End If

Ricordati di resettare il Command1.Tag all'inizio della routine.
Sempre nel ciclo metti un DoEvents, altrimenti il click del tasto scatta quando la routine termina.

Grazie Seba.