[vb6]Uscire da un ciclo ad un click dell'utente

[Alethesnake]

Ciao a tutti,
ho un ciclo do loop che tendenzialmente potrebbe andare all'infinito (ricerco una serie di combinazioni).
Esiste la possibilità di uscire da questo ciclo al click su un command button?

[m@ximo]

Potresti dichiarare una variabile flag di tipo boolean globale.

Dim flag as Boolean (deve essere globale)

Private Sub Form_Load()
  flag = False
End Sub

Private Sub Button_Click()
  flag = True
End Sub

All'interno del ciclo Do inserisci questo controllo

Do Until(...)
...
...

If (flag) Then
  Exit Do
End If
Loop

Non l'ho provato, ma dovrebbe funzionare. Fammi sapere se va bene

Bye

Max

[Worf]

Metti anche un DoEvents all'interno del ciclo.
Nell'esempio di m@ximo, la variabile flag deve necessariamente essere pubblica (almeno a livello di modulo).

[iguana13]

Senza DoEvents rischi che il programma sembri bloccato e l'utente non possa cliccare sul pulsante...

[Alethesnake]

Grazie a tutti, funziona bene.

PS: scusate se non mi sono rifatto vivo prima ma non mi è arrivata la notifica mail