Visual Basic - hora en curso

Life is soft - evento anual de software empresarial
 
Vista:

hora en curso

Publicado por lucia aceves nuñez (4 intervenciones) el 22/09/2004 22:36:37
hola que tal necesito ayuda les agradecere si me ayudaran resulta que hice un formulario donde tengo un label y un timer necesito que en el label me de la hora, pero solamente la aperece la hora cuando presiono cualquier tecla, y quiero que en cuanto ejecute el programa la programe.
le introduje estos datos
Private Sub Timer1_Timer()

Timer1.Interval = 1000
lbltiempo.Caption = Time$

End Sub
y me aparece 17:48:00
pero necesito que me aparezca en este formato 05:45:00 p.m. como le hago.. muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:hora en curso

Publicado por Semper (74 intervenciones) el 22/09/2004 23:25:50
En el evento _LOAD() de tu forma necesitas activar el timer ...

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Y luego, en el evento _TIMER del Timer 1 solo necesitas poner...

Private Sub Timer1_Timer()

lblTiempo.Caption = Format(Time, "hh:mm:ss AMPM")
lblTiempo.Refresh

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hora en curso

Publicado por lucy (4 intervenciones) el 22/09/2004 23:47:47
muchisisimas gracias. en verdad te lo agradezco .
pero como le hago para que en cuanto ejecute el programa aparezca la hora sin necesidad de darle click en el label
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hora en curso

Publicado por Semper (74 intervenciones) el 22/09/2004 23:54:35
En el evento _LOAD() de tu forma puedes ejecutar directamente el Timer1_Timer, y despues de esto, dejar que el Timer1 por si mismo actualize el label cada que se cumpla el intervalo asignado...

Private Sub Form_Load()

Timer1_Timer ' <- ejecutas "manualmente" la primera vez
Timer1.Interval = 1000
Timer1.Enabled = True

' Despues, cada 1000 milisegundos (un Segundo) el timer refrescara
' la etiqueta ...

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar