INTERROMPENDO UM LOOP

THIAGO.CESAR 01/06/2004 08:57:27
#27592
Como faço para permitir que o usuário interrompa um loop no meu programa? Quero deixar um botão "Parar" que interrompa o loop. Já tentei da seguinte maneira:
 
Sub cmdParar_Click()
Continuar = False
End Sub

Sub cmdImprimir_Click()
For i = 0 to 5000
print #1, Texto
  If Continuar = False Then
      Exit Sub
  End if
Next
End Sub


Não funcionou porque o botão parar, mesmo clicado, só atribui o valor à  variável quando o loop já terminou...
USUARIO.EXCLUIDOS 01/06/2004 09:22:26
#27599 Resposta escolhida 
Sub cmdParar_Click() 
Continuar = False 
End Sub 

Sub cmdImprimir_Click() 
For i = 0 to 5000 
DoEvents    'esta opção permite q o usuario execute outras tarefas
print #1, Texto 
  If Continuar = False Then 
      Exit Sub 
  End if 
Next 
End Sub


Qualquer duvida Post

Te +[S56]
Tópico encerrado , respostas não são mais permitidas
Voltar