Uso del control del temporizador en VB
Los controles de temporizador pueden ejecutar código a intervalos fijos generando un evento de temporizador.
Sintaxis
Temporizador
Descripción
El control Temporizador se utiliza en procesos en segundo plano, en los que es invisible
************************ Las siguientes son sus propiedades******************
Propiedad habilitada
Para devolver o configurar un evento de temporizador, el control Temporizador debe establecerse en la propiedad Temporizador. p>
Devuelve o establece un valor que determina si el formulario o control puede responder a eventos generados por el usuario.
Sintaxis
object.Enabled [= boolean]
La sintaxis para habilitar una propiedad consta de las siguientes partes:
Descripción de la parte
p>objeto Una expresión de objeto cuyo valor se "aplica" al valor del objeto en la lista. Si se omite el objeto, el formulario asociado con el módulo de formulario activo se trata como un objeto.
booleano Una expresión booleana que especifica si el objeto puede reaccionar a eventos generados por el usuario.
Configuración
Las configuraciones booleanas son:
Descripción de la configuración
Verdadero (predeterminado) permite que el objeto reaccione a los eventos.
False impide que el objeto reaccione al evento.
Ejemplo de propiedad habilitada
Este ejemplo habilita el control CommandButton independientemente de si el control TextBox contiene texto. Para probarlo, pegue el siguiente código en la sección de declaraciones del formulario con los controles CommandButton y TextBox, luego presione la tecla F5 y escriba contenido aleatorio en el cuadro de texto.
Private Sub Form_Load ()
Text1.Text = "" ' Borra el contenido del cuadro de texto.
Command1.Caption = "Guardar" ' Añade un título al botón.
End Sub
Sub privado Text1_Change ()
If Text1.Text = "" Then ' Compruebe si el cuadro de texto está vacío.
Command1.Enabled = False 'Desactiva el botón.
Else
Command1.Enabled = True 'Habilita el botón.
End If
End Sub
Propiedad de intervalo
Devuelve o establece el número de milisegundos entre eventos cronometrados al llamar al control del temporizador.
Sintaxis
objeto.Interval [= milisegundos]
La sintaxis del atributo Intervalo consta de las siguientes partes:
Descripción de la parte
objeto Una expresión de objeto cuyo valor se "aplica a" un objeto en la lista.
milisegundos Una expresión numérica que especifica el número de milisegundos, como se describe en "Configuración de valores".
Valor de configuración
El valor de configuración para milisegundos es:
Descripción del valor de configuración
0 (predeterminado) desactiva el control del temporizador.
1 a 65.535 Establece el intervalo de tiempo (en milisegundos) que tiene efecto cuando la propiedad Activada del control del temporizador se establece en Verdadero; por ejemplo, 10.000 milisegundos equivalen a 10 segundos. El valor máximo es 65.535 milisegundos, que es poco más de un minuto.
Descripción
La propiedad Intervalo de un control de temporizador se puede configurar en tiempo de diseño o en tiempo de ejecución. Al utilizar la propiedad Intervalo, tenga en cuenta:
La propiedad Enabled de un control de temporizador determina si el control responde al paso del tiempo. Si se establece Enabled en False, se desactiva el control del temporizador; si se establece en True, se activa el control del temporizador. Cuando se habilita un control de temporizador, la cuenta regresiva siempre comienza desde la configuración de su propiedad Intervalo.
Cree una rutina de eventos de temporizador que le indique a Visual Basic qué hacer cada vez que se alcance el intervalo.
Ejemplo de propiedad de intervalo
Este ejemplo ajusta la rapidez con la que un formulario cambia de color. Para probar este ejemplo, pegue el código en la sección de declaraciones del formulario que contiene el control del temporizador, el control HScrollBar (barra de desplazamiento horizontal) y el control PictureBox y luego presione F5 y haga clic en las barras de desplazamiento.
Private Sub Form_Load ()
Timer1.Interval = 900 'Establece el intervalo de tiempo.
HScroll1.Min = 100 ' Establece el valor mínimo.
HScroll1.Max = 900 ' Establece el valor máximo.
End Sub
Private Sub HScroll1_Change ()
' Establece el intervalo de tiempo según el valor de la barra de desplazamiento.
Timer1.Interval = 1000 - HScroll1.Value
End Sub
Private Sub Timer1_Timer()
' en rojo y azul Switch el color de fondo entre.
Si Imagen1.BackColor = RGB(255, 0, 0) entonces
Imagen1.BackColor = RGB(0, 0, 255)
En caso contrario
p>
Imagen1.BackColor = RGB(0, 0, 255)