[vb6]Ciclo for

[Alessandro2110]

Ciao ragazzi!!

dovrei, tramite pulsante fermare un ciclo for in funzione

qualcuno di voi sa come fare?

grazie.....

[buba88]

nn penso sia possibile, magari potresi usare un altro controllo tipo una check:

for i = 1 to 10
   if check1.value=1 then
      exit for
   end if
   [istruzioni.....]
next i

[Brainjar]

E' possibile se utilizzi l'istruzione DoEvents.
Questa permette il controllo degli eventi esterni al ciclo,
come può essere il click su un bottone.

Prova a mettere due bottoni in un form.
Copia ed incolla questo codice e prova.

Option Explicit
' Variabile di controllo ciclo
Dim bStop As Boolean

Private Sub Command1_Click()
Dim a As Long
Dim b As Long

' Inizializzo la variabile di controllo ciclo
bStop = False

' Comincia a contare
For a = 1 To 1000000000
    DoEvents
    If bStop Then
        MsgBox "Uscita al ciclo " & a
        Exit For
    End If
    b = a / 7 ' fai fare qualcosa nel ciclo
Next a
End Sub

Private Sub Command2_Click()
' Imposta a true la variabile di controllo ciclo.
    bStop = True
End Sub

Ciao,

[Alessandro2110]

Grazie mille!!!!!