SoloCodigo

Amigos:

Tengo el siguiente problema:

En un command1, tengo instrucciones que realizan algunos procesos sobre tablas y calculos varios.
Esto se demora su tiempo.

Para aprovechar esto, quiere tener la posibilidad de poder presionar otro command2 que realice otro tipo de acciones.

Es posible?

Ya que al presionar el command1, no puedo hacer nada hasta que el proceso termine.

Existe alguna forma?

Podrian decirme como, o indicarme donde encontrar algun codigo de ejemplo.

Gracias

hola Zerocool  

a mi tambien me interesa como determinar dentro de un timer hacer dos o mas procesos que contengan ciclos cada uno, osea de que manera lo planteas  

gracias por tus comentarios

desarrollo  

Hola Jose perdona mi torpeza     por no dejarte ejemplos, pero te hice uno sencillito para ver si eso es lo que deseas , mira este y pruebalo:

Private Sub Command1_Click()
For a = 1 To 100000
    DoEvents                      'linea que te decia
    List1.AddItem a
Next
End Sub

Private Sub Command2_Click()
msgbox "hola"
End Sub

mira este ejemplo consisten dos comands button y un list, el list es para hacer un conteo de 100000 numeros, eso tardara un poco, pero ponle que quieres hacer otra cosas mientras esta el conteo pues con el doevents puedes mandar el control a otras cosas y seguir otro proceso, ahora si espero que te haya quedado bien bueno ahi nos vermox, cuidense, bye  

Pues la manera mas sencilla de hacer lo que quieres es asi:

 sub command1_click()
     call command2_click()
ens sub

Con esto al presionar el boton 1 haces que se presione el 2.

Si en las operaciones incluidas en el command2 no hay variables que esten siendo utilizadas por el command1 no deberia de tener problemas.

Gracias por las todas las respuestas y dedicacion a estas.

Probando con el DoEvents, encontre una falla.

Si utilizan el siguiente codigo:

Private Sub Command1_Click()
Command1.Tag = 1
For a = 1 To 10000
    DoEvents 'linea que te decia
    List1.AddItem Format(Time, "hh:mm:ss")
    If CDbl(Command1.Tag) = 0 Then
        Exit For
    End If
Next
End Sub

Private Sub Command2_Click()
MsgBox "hola"
End Sub

Private Sub Command3_Click()
Command1.Tag = 0
End Sub

Private Sub Form_Load()
Command1.Tag = 1
End Sub


Se daran cuenta que:
- Al presionar command1, se ejecuta la insercion de registros con la hora en list
- Al presionar command2, se muestra un mensaje, hasta aqui, todo ok.
- Pero si al presionar command2, esperamos unos segundos (10 aprox) y presionamos "Aceptar", el proceso que estaba haciendo command1, continua.
  Y podran darse cuenta, que mientras se estaba esperando que se presione "Aceptar", el proceso command1 se detiene, y ellos simplemente revisando los registros de tiempo que se insertaron en el list, veran que existe en alguna parte entre un registro y otro un periodo de 10 seg aprox, y esto es producto de que estaba esperando "Aceptar"

La respuesta esta cerca, pero aun no he podido realizar procesos paralelos.

Gracias.