RE:reloj analógico y calendario al panel de contro
Publicado por
DALMIRO (1 intervención) el 07/03/2009 18:30:21
PARA CALENDARIO
hola coloca el formulario en vista de diseño.
busca las herramientas y click sobre mas controloes
ahi busca control calendario
cuando lo hagas.... arrastra el puntero del mouse para darle el tamaño
el calendario te aparece automaticamente y te actualiza la fecha en cualquier campo donde tengas FECHA,
PARA LOS RELOJES
Poner la hora en los formularios
Crea un etiqueta y dale por nombre "Reloj", accede a las propiedades del formulario y en el evento "Al cronómetro" escribe lo siguiente:
Private Sub Form_Timer()
Reloj.Caption=Time()
End Sub
Una vez hecho esto en la propiedad "Intervalo del cronómetro" establece su valor a 1000, con esto se actualizará el reloj cada minuto.
Si quieres darle un toque personal puedes modificar el código anterior para que cambie de color cada segundo con el siguiente código:
Private Sub Form_Timer()
Static color As Boolean
Reloj.Caption=Time()
If color Then
Reloj.Forecolor=RGB(255,0,0)
Else
Reloj.Forecolor=RGB(0,255,0)
End If
color=Not color
End Sub