Ejemplo de control Timer

Nota sobre la propiedad interval

La propiedad interval acepta como máximo el valor 65535. Es decir que si queremos asignar un valor superior nos dará un error por que desborda

Por eso , si queremos configurar el timer, con valores superiores , por ejemplo hacer que el timer se ejecute cada 10 minutos por decir un caso , podriamos hacer algo por el estilo :

Este código, ejecuta el temporizador cada 5 minutos ( el valor de la constante INTERVALO_EN_MINUTOS )



Código en el form con un timer1

Option Explicit

' Cantidad de minutos para el intervalo del timer _
en este caso para 5 minutos
Const INTERVALO_EN_MINUTOS As Integer = 5

Private Sub Form_Load()
' Ejecuta el timer cada 1 segundo
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
' variable estática para acumular la cantidad de segundos
Static Temp_Seg As Long
' incrementa
Temp_Seg = Temp_Seg + 1
' comprueba que los segundos no sea igual a la cantidad de minutos _
que queremos , en este caso 5 minutos
If (Temp_Seg * 60) >= (INTERVALO_EN_MINUTOS * 60) * 60 Then
' reestablece
Temp_Seg = 0
MsgBox "Se ejcutó el timer ", vbInformation
End If

End Sub


Para utilizar temporizadores en Visual Basic, no es la única forma mediante el control Timer, hay unas funciones del Api llamadas SetTimer y KillTimer que permiten crearlos sin utilizar el control estándar de Visual Basic.

En este enlace, Crear un Timer con el Api podés ver un ejemplo

También en este enlace podés descargar un módulo de clase para poder crear un timer con el api realizado por microsoft