Cancelar Ação

[Manwë Súlimo]

Pessoal, como eu faço um botão p/ cancelar uma função???

tipo, minha função ta no meio de um loop de 1000 voltas, e chega na 250 eu resolvo cancelar... o que eu devo fazer p/ que esse loop de uma brecada, e eventualmente o que foi feito ser desfeito...

essa de desfazer até que não é dificil, mas o que eu quero saber realmente é como cancelar um função que ta no meio da sua rotina... como faz isso??

espero que tenham me entendido...

até mais

[§uiciDa£]

mmais como q é essa rotina, é while, for ou q ??

é só você dar um jeito de quebra ela tipo

do while i < 1000

i=i+1

if i > 250 then

i = 1001

end if

loop

, ou ainda usar goto, exit sub

explica melhor o seu loop

[Manwë Súlimo]

Não, não, você não entendeu amigo...

eu não quero que cancele quando chegue no 250, o usuario vai cancelar quando ele quiser... e ele pode muito bem não cancelar...

ou seja, é uma açào externar à rotina...

sabe quando você ta fazendo um download e resolve cancelar?? é tipo isso.. como eu faço???

alguém sabe?????

até mais

[Decio]

É mais ou menos como nosso amigo falou, o que você pode fazer é uma flag para saber quando parar.Da uma olhada no exemplo que eu fiz:

'para este exemplo coloque dois command button e 1 text box
Dim endLoop As Boolean

Private Sub Command1_Click()

Dim a As Integer
endLoop = False
 For a = 1 To 32000
 DoEvents
  Text1.Text = a
If endLoop = True Then Exit For
Next a
MsgBox "finalizado em " & a
End Sub

Private Sub Command2_Click()
  endLoop = True
End Sub

Private Sub Form_Load()
Command1.Caption = "iniciar loop"
Command2.Caption = "finalizar loop"
End Sub

[Manwë Súlimo]

Valeu Décio, deu p/ entender melhor...

até mais