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