27/11/2007, 09:20
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 1 mes Puntos: 17 | |
| Re: Semáforo en un formulario
a ver... asi bien a la rapida....
tienes un campo fecharef que contiene una fecha... yo haria algo como....
existen 3 iconos en la carpeta de visual que son : TRFFC10A.ICO, TRFFC10B.ICO y TRFFC10C.ICO
inserta un picturebox en tu proyecto y cuando cargues el regstro has algo como
fecha_actual=date (asumo que kieres comparar la fecha con ho)
select case fecharef
case > fecha_actual
picture1.picture=loadpicture("trffc10a.ico") (verde)
case fecha_actual
picture1.picture=loadpicture("trffc10a.ico") (amarilo)
case < fecha_actual
picture1.picture=loadpicture("trffc10a.ico")
end select
te insisto, este es codigo "al paso", tu tienes que analizarlo, investigar un poco mas y ver en que parte del proyecto podrias utilizarlo, cualkier duda me avisas |