¿como controlar eventos con el timer?

[ccca001]

hola a todos nuevamente..., necesito orientacion con respecto a lo siguiente:

necesito controlar un evento con el timer, la idea es que a cierta hora que yo programo suceda un evento (un msgbox) indicando algo... logro hacerlo pero el problema es que me repite el mensaje a cada segundo a pesar de que tengo una variable (horabol) con este formato (hh:mm)...el mensaje lo tengo en el timer de tal modo que la variable que toma la hora (un label) al momento de activarse el form es igual a la variable que programo (horabol) para que suceda el evento...pero no logro que se detenga el evento una vez que lo acepto...???

que estoy haciendo mal??

[zabait]

PROBLEMA: El timer se lanza cada segundo y solo quiero que me lance el evento a ciertas horas que sé.

SOLUCIÓN:
Porque cuando te salta el evento timer no pones una condicion por la cual haga o no haga lo quieres???
es decir, si quieres que se lance a las 9 de la mañana...

if hour(now) = 9 then
'Llamada a la función que quieres lanzar
endif

[lic_dahool]

El mensaje continuará mostrando siempre que tu variables de comparación sean iguales, si lo queres q muestre un mensaje a las 09:01, el mensaje se mostrará hasta que cambie, por ej. 09:02.

Soluciones:
Podes deshabilitar el timer una vez cumplida la hora, cuando haya q mostrar el mensaje.

Podés utilizar una variable para verificar que no hayas mostrado el mensaje antes.

Etc.

Saludos.

[ccca001]

mmm, voy a probar lo que pusieron, aunque yo lo solucione de la siguiente manera:
cree otra variable que utilizo como condicion inicializada en 0 y luego del evento la pongo en 1, la variable vuelve a 0 cuando se cambia la configuracion de hora (horabol) en el programa por el usuario...
asi... si la variable esta en 0 se produce el evento si no, no.

[darkhack]

si estas utilizando segundos en tu comparacion seria mas facil por decir :
pones tu timer con un intervalo de1000 y le agregas tu condicion de que si alguna variabkle es igual al segundo mande el msj ejemplo:


recibes la hora , los minutos y los segundos, los guardas en una variable (por decir la variable "hora" y despues comparas:
dim hora
Private Sub Timer1_Timer()
Label1.Caption = Hour(Now) & Minute(Now) & Second(Now)
If Label1.Caption =hora Then
msgbox "son las:" & hora
End If
End Sub