[vb6] break a livello di routine

[Barbastreyo]

salve atutti mi sapete dire se cè un modo per interrompere una routine mentre sta girando.

grazie.

[ddies]

un esempio? ....

[Barbastreyo]

allora ho un'applicazione che cerca se una stringa è contenuta su entrambi i file. come faccio a interrompere la ricerca e tornare sulla form?

[sebamix]

Exit Function
Exit Sub
Exit Property
Exit Do
Exit For
...

:quipy:

[Barbastreyo]

Originariamente inviato da sebamix
Exit Function
Exit Sub
Exit Property
Exit Do
Exit For
...

:quipy:

si ho capito ma deve essere fatto all'esterno della routine.

cioè se io voglio che alla pressione di un tasto parta la routine e alla pressione di un altro tasto si interrompa la stessa routine. come faccio?

[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.

[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.