¿Qué tal cerrar automáticamente la ventana 20 segundos después de presionar la tecla "OK" en el cuadro de mensaje?

.¿Versión? ¿Asamblea? Componente de ventana 1

.Variable de ensamblaje?i,?Entero

.Subrutina?Iniciar ventana_creada

i=?20

. ¿Subrutina? Haga clic en el botón __ 1_

Cuadro de mensaje ("¡La ventana se cerrará en 20 segundos!",?0,?)

Reloj 1. Evento de subrutina _clock1_cycle

.¿Si es cierto? (i≠?0)

Etiqueta 1.¿Título?"Restante"?+ texto? (i)?+?"¡Segundos, la ventana se cerrará automáticamente!"

i?

i?=?i?-?1

¿Regresar? ( )

.Si es verdadero final

¿Fin?()

. ¿Subrutina?Click_Button 2_

Infobox? ("¡La ventana se cerrará en 20 segundos!",?0,?)

Retraso (20000)

Fin ?()

'--------------------------------

Existe una diferencia entre estos dos métodos:

Método 1: el método que utiliza el control del reloj se considera un apagado suave y el usuario puede realizar otras operaciones o cancelar el apagado dentro de estos 20 segundos;

Método 2: Este es un apagado forzado, porque el usuario puede realizar otras operaciones o cancelar el apagado durante estos 20 segundos: Este es un apagado forzado, porque se utiliza el comando de retardo, durante estos 20 segundos, el programa can Se dice que está en un estado de pseudo-muerte, y el usuario no puede realizar otras operaciones y solo puede mirar y esperar a que el programa se cierre

Espero que esto te sea útil.