STOP E START

ALEXLUGON 02/11/2009 11:31:19
#326731
gostaria de saber como dou pause em um FOR NEXT ou em um Do While atraves de um botao

tipo assim

tenho um botao que roda o loop em outro botao gostaria de parar ou stopar o loop

tem como fazer isso?
DANIKULL 02/11/2009 11:40:59
#326732
ALEXLUGON, bom dia.

Mas qual seria o objetivo???
Seja mais claro e objetivo.....

O Loop são feitos para checar uma informação repedidamente até que o objetivo seja executado, não há porque pausar um loop se o objetivo dele é deixar de rodar quando encontra o desejado, ok????
TECLA 02/11/2009 11:47:10
#326734 Resposta escolhida
Um exemplo simples.

Adicione os controles abaixo no FORM:
Citação:

Label (Name = lblOp)
CommandButton (Name = cmdIniciar)
CommandButton (Name = cmdParar)
Timer (Name = Timer1 e Interval = 1000)



Copie o código abaixo e cole no editor de códigos do VB6
[ô]Declare no General Declarations
Dim Status As Boolean
Dim Op As Double


Private Sub cmdIniciar_Click()
cmdIniciar.Enabled = False
cmdParar.Enabled = True
Status = True
End Sub


Private Sub cmdParar_Click()
cmdIniciar.Enabled = True
cmdParar.Enabled = False
Status = False
End Sub


Private Sub Form_Load()
Op = 1
cmdParar.Enabled = False
End Sub


Private Sub Timer1_Timer()
If Status = True Then
    lblOp = Op
    Op = Op + 1
End If
End Sub


Teste e retorne o resultado no tópico.
EPISCOPAL 02/11/2009 11:52:11
#326735
IMPLEMENTAÇÃO DO CODIGODO TECLA ......



For i = 1 to 1000

if STATUS = true then exit for

[ô]CODIGOS DE TESTES

Next
TECLA 02/11/2009 11:56:25
#326736
Citação:

WOLFFIRE escreveu:
IMPLEMENTAÇÃO DO CODIGODO TECLA ......



For i = 1 to 1000

if STATUS = true then exit for

[ô]CODIGOS DE TESTES

Next



Só esqueci do principal... hehehe.
Como disse o colega, é só fazer as devidas alterações (inserir um laço que englobe a verificação do status).
Tópico encerrado , respostas não são mais permitidas
Voltar