Autor Tema: Interrupcion De Secuencia Programada En Un Boton (Leído 858 veces)

nacholie · « **en:** Domingo 18 de Noviembre de 2007, 22:31 »

Tengo un problemilla, espero me puedan ayuar...

Tengo un programa en visual con 2 botones, uno de analisis (donde programo un procedimiento secuencia) y otro de detener analisis. Pero al momento de dar click en el boton de analisis ya no puedo dar click en el de detener analisis hasta que se termina la secuencia que programe en el de analisis. Quisiera saber una opcion o una forma para poder interrumpir la accion del boton de analisis mientras se esta ejecutando su secuencia, poder interrumpirlo al darl click en el boton de detener analisis...

Bueno espero me puedan ayudar... un saludo a todos y muchas gracias

cpmario

La siguiente rutina muestra como puede detenerse otra rutina en el programa.
Coloca en una forma 2 botones y una etiqueta y coloca el siguiente código.

Código: Text

Option Explicit
Dim blnStop As Boolean
 
Private Sub Command1_Click()
    Dim lngCnt As Long
    For lngCnt = 1 To 10000000
        Label1.Caption = lngCnt
        DoEvents
        If blnStop Then
            blnStop = False
            Exit For
        End If
    Next lngCnt
End Sub
 
Private Sub Command2_Click()
    blnStop = True
End Sub
 

SoloCodigo

Autor Tema: Interrupcion De Secuencia Programada En Un Boton (Leído 858 veces)

nacholie

Interrupcion De Secuencia Programada En Un Boton

cpmario

Re: Interrupcion De Secuencia Programada En Un Boton