• Miércoles 6 de Noviembre de 2024, 04:11

Autor Tema:  Pausa  (Leído 1104 veces)

Vlad Tepes

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Pausa
« en: Lunes 3 de Junio de 2002, 16:11 »
0
Por favor, quisiera saber si puedo y como hacer para pausar la ejecución de un programa con un evento, y reanudarla con otro evento, como en los juegos.
Gracias por vuestra atención.

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Pausa
« Respuesta #1 en: Viernes 14 de Enero de 2005, 01:02 »
0
ijole un mensaje viejo, mas viejo que mi estadia en el foro.
La forma mas facil, es llamando un MsgBox "Programa en pausa"
El pasado son solo recuerdos, el futuro son solo sueños

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Pausa
« Respuesta #2 en: Viernes 14 de Enero de 2005, 13:57 »
0
Ki empalador.

Suponiendo que el proceso que ejecuta el programa y el que recibe los eventos sea el mismo, podrías usar una variable booleana de una forma similar a esta:

Código: Text
  1.  
  2. Private bStop as Boolean
  3.  
  4. Private Sub Objeto_EventoDetener()
  5.     bStop = True
  6.     Do While bStop
  7.        DoEvents
  8.     Loop
  9. End Sub
  10.  
  11. Private Sub Objeto_EventoContinuar()
  12.     bStop = False
  13. End Sub
  14.  
  15.  

Suerte.