RE:Temporizador (otro método)
En una ventana pega dos StaticText:
* st_1 (mostrará un pequeño reloj digital, que se actualizará cada segundo). Es opcional, pero conviene que lo hagas al principio, para verificar si funciona o nó el invento : )
* st_2 (la etiqueta que quieres cambiar el color, según transcurra el tiempo. Por ejemplo, cada minuto, cada hora, una determinada fecha, etc.).
Los cripts son:
1. Script en el evento Open de la ventana:
//Muestra la hora del sistema
st_1.text=string(Now(),"hh:mm:ss")
//Se actualiza cada segundo
Timer(1)
2. Script en el evento Timer de la ventana.
string ld_hora
st_1.Text=string(Now(),"hh:mm:ss")
//Cogemos la hora que muestra en ese momento el reloj st_1.
ld_hora=string(st_1.Text)
choose case ld_hora
//En el lapso de tiempo de abajo, la etiqueta tendrá un color rojo.
Case "17:33:00" to "17:34:00"
st_2.BackColor=RGB(255,0,0)
//Color amarillo
Case "17:34:01" to "17:35:00"
st_2.BackColor=RGB(0,255,0)
//En cualquier otro tiempo, será de color azul.
Case else
st_2.BackColor=RGB(0,0,255)
End choose
Nota: En vez de trabajar con función de hora, puede trabajar con las funciones de fecha, fecha y hora.