¿Cómo utilizar el temporizador en VB?

El temporizador activa un evento en un intervalo de tiempo determinado. Este tiempo se puede configurar en el atributo de intervalo del temporizador. El valor predeterminado es 0, lo que significa que el temporizador no funciona.

Si el temporizador no se apaga después de que se activa el evento (establezca el atributo enable en falso, la función es la misma que cuando el intervalo = 0), continuará activando eventos a intervalos regulares hasta que finalice el evento. el programa finaliza o el valor del atributo de intervalo se establece en 0 o el atributo habilitado se establece en 0

Cerrar automáticamente form2 después de la cuenta regresiva de 5 segundos:

**El temporizador no es preciso, pero aún está bien cuando el requisito de precisión no es alto.

1. Cree un nuevo proyecto EXE estándar, agregue un temporizador Timer1, un cuadro de texto Text1 en Form1 y agregue un formulario: form2

2. dos Plan), pero aún se conserva lo siguiente

[Opción 1: La más simple, el proceso de cuenta regresiva no se puede ver]

private sub Form_load()

form2.show 'Ejecutar formulario 2

timer1.interval=5*1000 '5000 milisegundos, es decir, 5 segundos

end sub

Private Sub Timer1_Timer( )

timer1.enabled=false 'Cerrar temporizador

descargar formulario2 'Cerrar formulario2

End Sub

[Opción 2: Ver el proceso de cuenta regresiva]

private sub Form_load()

form2.show 'Ejecutar formulario 2

text1.text="5"

timer1.intervalo=1*1000 '1000 milisegundos, es decir, 1 segundo

end sub

Private Sub Timer1_Timer()

El valor de Rem text1 es reducido en 1

'{

Dim a as integer

a=val(text1.text) 'text1.text string to integer

a=a- 1

text1.text=str(a) 'Convierte el número entero en una cadena y lo vuelve a colocar en text1.text

'}

Rem comprueba el valor de texto1

'/*

si alt;=0 entonces

descarga formulario2 'Cerrar formulario2

timer1.enabled=false 'Cerrar temporizador

'*/

Fin Sub