nessuno ti ha già suggerito un modo per terminare i cicli senza troncarli in maniera "brutale"....
esempio:
dim ciclo as Boolean
Private Sub Form_Load()
ciclo = false
End Sub
Private Sub Comman1_Click()
Do
... 'al loop aggiungiamo la condizione di controllo
Loop untile ciclo = false 'continua il ciclo finchè ciclo è false, altrimenti stoppa il ciclo
End Sub
Private Sub Form_Unload()
ciclo = true
End Sub
Ultima modifica effettuata da GrG il 12/05/2010 alle 19:24 |