05/03/2004, 10:18
|
 | | | Fecha de Ingreso: agosto-2003 Ubicación: Puerto Rico
Mensajes: 332
Antigüedad: 21 años, 3 meses Puntos: 0 | |
| hola
esta es una solucion no muy buena ya que usa timers y puede que utilice recursos del sistema. pero ai va aver si te sirve:
utiliza un label (Label1), dos timers (Timer1, Timer2)
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
Timer2.Enabled = False
Timer2.Interval = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = " "
Label1.Caption = Time
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Label1.Caption = " "
Label1.Caption = Time
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
saludos
hmtech
__________________
"...todos los días hay que luchar por que ese amor a la humanidad viviente se transforme en hechos concretos, en actos que sirvan de ejemplo, de movilización."
Che Guevara |