. En Visual Basic NET , el control Timer permite controlar eventos recurrentes durante el tiempo de ejecución de la aplicación. Temporizador tiene algunas propiedades y métodos que son exclusivos de ella . Su característica más importante es el intervalo que especifica la frecuencia del temporizador debe ejecutar su código. Usted suministra un valor de intervalo en milisegundos ; 1000 milisegundos es igual a un segundo. Algunos ejemplos de lo que puede hacer con un control Timer incluyen la realización de un conteo regresivo , cambiando dinámicamente valores de las propiedades de otros controles y el mantenimiento de una vigilancia constante en alguna otra parte de la aplicación. Instrucciones
1
Abra un proyecto de Visual Basic . Haga doble clic en el control temporizador Timer1 para añadir al proyecto. Haga doble clic en el control Label Label1 para agregar al formulario. Cambiar la propiedad Enabled del control Timer1 en True y la propiedad Interval en 1000
2
Press " F7 " para abrir la ventana de código , y escriba el código siguiente : .
Tiempo As Integer = 10
Esto crea una variable y lo inicializa
3
Abra el subprograma Timer1_Tick y escriba el siguiente código: .
Si el tiempo > 0 Luego
tiempo
= tiempo - 1
Label1.Text = tiempo
demás
Timer1.Enabled = False End If
Cuando se ejecuta el programa , el temporizador disminuirá la variable tiempo en uno cada segundo , y mostrar el valor de la etiqueta , hasta que la cuenta llegue a 0 , momento en que el temporizador se apaga.
< br > 4
Presione "Shift " y " F7 " para abrir la ventana de diseño . Haga doble clic en el control Timer para añadir Timer2 al proyecto. Cambie su propiedad Enabled en True y la propiedad Interval en 100 , haga doble clic en él para abrir el subprograma Timer2_Tick . Escriba el siguiente código:
Si ( + Label1.Left Label1.Width ) > Me.Width Entonces
Label1.Left = Me.Left - 100
End If
Label1.Left = Label1.Left + 5
Este código hace que la etiqueta para desplazarse horizontalmente por la pantalla , moviéndose cinco píxeles cada décima de segundo. Cuando la etiqueta llega al extremo derecho de la forma que salta de nuevo a la izquierda y comienza el desplazamiento a través de nuevo.
5
Presione " Shift" y " F7 " para abrir la ventana de diseño . Haga doble clic en el control Timer Temporizador 3 para añadir al proyecto. Cambie su propiedad Enabled en True y la propiedad Interval en 500 . Haga doble clic en el control TextBox TextBox1 para añadir al proyecto. Haga doble clic en Temporizador 3 en el proyecto para abrir el subprograma Timer3_Tick . Escriba el siguiente código:
TextBox1.Text = TextBox1.Text.ToUpper
TextBox1.Select ( TextBox1.TextLength , 0 )
Cada medio segundo el temporizador cambia todo el texto de TextBox1 a mayúsculas . Por defecto, cuando el temporizador hace que este cambio se mueve el cursor hacia atrás hasta el principio del cuadro de texto . La segunda línea de código impide que esto suceda .