Cómo cerrar automáticamente un cuadro de mensaje en VB6

Los cuadros de mensaje se utilizan sobre todo en los programas de VB6 para indicar al usuario que algo requiere su atención. Un cuadro de mensaje puede mostrar un mensaje de error o se podría pedir al usuario una pregunta, proporcionando un "Sí" y un botón de " No" en el formulario. El cuadro de mensaje también podría estar informando al usuario de que algo está por suceder dentro del programa , preguntando si les gustaría continuar. Podría beneficiar al usuario salir de ese mensaje que aparece durante cinco segundos y luego simplemente se mueve automáticamente a la siguiente actividad dentro del programa. Este ajuste se puede hacer en tan sólo unos pasos. Instrucciones
1

Abra un nuevo proyecto EXE estándar en Visual Basic . Un formulario denominado " Form1 " se crea de forma predeterminada . Añadir un nuevo módulo al proyecto haciendo clic derecho sobre el nombre del proyecto y haga clic en " Agregar" y luego " módulo ". El nombre por defecto para el nuevo módulo será " Module1 ".
2

Cambie el nombre del formulario y el módulo como algo significativo , como " frmMain " para la forma y " modTimer " para el módulo. En el " ( declaraciones ) (General )" La zona de la " modTimer " , declaran las siguientes funciones de Windows : KillTimer , FindWindow , SetForegroundWindow . Cada una de estas funciones se hace referencia en la biblioteca de Windows " user32 " .

Private Declare Function KillTimer Lib " user32 " ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

Private función declare FindWindow Lib " user32 " Alias ​​" FindWindowA " ( lpClassName ByVal As String , ByVal lpWindowName As String ) As Long

Private Declare Function SetForegroundWindow Lib " user32 " ( ByVal hWnd As Long ) As Long
Página 3

Declarar una constante que se ha recibido para cerrar el cuadro de mensaje. La declaración de la constante es " NV_CLOSEMSGBOX Public Const As Long = & H5000 y . " Definir también un subprograma llamado " TimerSub " en " modTimer . " La declaración de " TimerSub " se parece a :

Public Sub TimerSub ( ByVal hWnd As Long , uMsg ByVal As Long , idEvent ByVal As Long , dwTime ByVal As Long )
4

Kill cualquier otro temporizador primero dentro de " TimerSub " para asegurarse de que el nuevo temporizador es el único activo . La función es " KillTimer . " A continuación, compruebe el valor de " idEvent " para ver si es igual a " NV_CLOSEMSGBOX . " Si es así , busque el cuadro de mensaje con " FindWindow " y enviar la tecla "Enter" en el cuadro de mensaje con " SendKeys ". Esto hará que el botón predeterminado , haga clic para ejecutar y así cerrar el cuadro de mensaje.
5

prueba la funcionalidad definida en " TimerSub " añadiendo un botón para " frmMain . " En el código de evento de clic de botón , ajustar el temporizador :

SetTimer hWnd, NV_CLOSEMSGBOX , 5000, AddressOf TimerProc

Esto forzará el cuadro de mensaje para cerrar en 5.000 milisegundos o 5 segundos . Seleccione " Run" y " Start " en el menú en VB para ejecutar el programa .