Resumen Crear Timer mediante API (sin el control Timer)

Mensaje enviado por AVernieri@juncalnet.com.ar


Hola!

Podes usar las API's SetTimer y KillTimer

Las declaraciones son las que siguen:

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Y las podes llamar así:

Dim TimerId as Long, lInterval as Long

TimerID = SetTimer(0&, 0&, lInterval, AddressOf MiRutinaDeEvento)
KillTimer 0&, TimerId

Public Sub MiRutinaDeEvento()
' Esto es lo que se ejecuta cada vez que se cumple el intervalo del Timer
End Sub

Algunas consideraciones:

MiRutinaDeEvento -DEBE- estar ubicada en un módulo .bas

La VariableTimerID conviene declararla a nivel de módulo o clase, ya que necesitas que la referencia quede para poder cancelar el Timer (KillTimer) cuando no lo necesitas más.

El intervalo se especifica en milisegundos...

Yo estaba trabajando en una clase para generar Timers accesibles desde una DLL, pero no la tengo completa...

Saludos
Alberto

>>> Grupo Juncal.Notes."Eduardo Jiménez Vargas <ejimenez@issste.gob.mx>
@BNL" 16/11/01 19:48 >>>
Estimados compañeros del grupo:

Tengo la necesidad de realizar llamadas a un stored procedure de SQLS7 en
determinados tiempos a través de una DLL. Esto es algo similar al control
TIMER, sin embargo como todos sabemos no puedo coloar el control dentro
de una DLL. Alguien sabe como hacer esto



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com