Al programar una aplicación en Visual Basic 6 (VB6) que a veces puede ser útil para poner en pausa una subrutina y esperar hasta que el usuario pulsa un botón, tales como requerir que el usuario lea una ventana emergente y haga clic en "Aceptar" para continuar. Puede hacer una pausa en una subrutina y esperar a que una pulsación de botón colocando el método "DoEvents" dentro de un bucle, que no bloquee el equipo como el método de "espera".
Instrucciones
1 Abra el archivo de código fuente VB6 en un editor como Microsoft Visual Basic.
2 Declarar una variable booleana mundial para rastrear si el botón ha sido presionado añadiendo el siguiente código en la parte superior de su formulario:
Option Explicit
ButtonIsClicked pública As Boolean
3 Inicializar el valor de la variable "ButtonIsClicked" al comienzo de la subrutina mediante la adición del código:
ButtonIsClicked = false
4 Llame a los "DoEvents ()" método dentro de un bucle "while" que esperar hasta que el botón ha sido presionado añadiendo el siguiente código dentro de su subprograma:
Botón
Mientras ButtonIsClicked = false
Application.DoEvents ()
Mientras End
El método "DoEvents" procesa los mensajes de Windows existentes, tales como un clic de botón. El bucle continuará adelante hasta que se hace clic en el botón.
5 Abra la interfaz gráfica de usuario de formularios, haga doble clic en el botón, el usuario tiene que hacer clic y añadir el siguiente código:
ButtonIsClicked = true
6 Guarde el archivo VB6, compilar y ejecutar el programa a ejecutar la subrutina modificada.