putting a clock on to a form in vb6

[misher2000]

please can you tell me how to put a normal clock on vb6 on my form page ???

[si_the_geek]

Moved from FAQ forum

[Keithuk]

Digital or analogue clock?

Digital

Private Form_Load()
 
'I know the clock will count in seconds but if you have an
'Interval of 1000 then you will get a delay before it starts running 
Timer1.Interval = 1
 
End Sub
 
Private Sub Timer1_Timer()
 
Label1.Caption = Format(Time, "hh:mm:ss AM/PM")
 
End Sub

The analogue clock needs a lot more code. There are loads of examples on PSC

[CVMichael]

Here's for analog clock:
http://www.vbforums.com/showpost.php...9&postcount=13

[Logophobic]

'I know the clock will count in seconds but if you have an
'Interval of 1000 then you will get a delay before it starts running 
Timer1.Interval = 1

So you will update the clock 64 times each second, just so you won't have to wait for the clock to display? Seems like a waste. Just call the timer routine to get the clock running.

Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer

[gavio]

'...
'I know the clock will count in seconds but if you have an
'Interval of 1000 then you will get a delay before it starts running 
'...

You can trigger the _Timer event no mather that:

Private Sub Form_Load()
    Timer1.Interval = 1000
[B]    Timer1_Timer[/B]
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Format(Time, "hh:mm:ss AM/PM")
End Sub

edit: totally missed Logophobic's post

[khanjan_a2k]

Here's a two line example...

Khanjan

[Keithuk]

Just call the timer routine to get the clock running.

Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer

The Timer can be running before the Form loads and you still have a delay with a 1 second interval.

[Logophobic]

The timer cannot be running before the form is loaded. That would be like a program running before the computer is turned on. I think what you meant is that the timer can be enabled at design-time. In any case, the initial delay can be avoided by calling the timer's timer event, as in my example.

[khanjan_a2k]

Hey hey guys... apparently misher2000 hasn't replied yet... so why are we arguing over what he wants... wait till he replies... calm down....
btw... Welcome to the forums misher2000

Khanjan

[dannyg]

put timer on the form and set the delay to 1000 then add a label to the form and...

Private Sub Timer1_Timer()
label1.Caption = Format(Now, "hh:mm:ss")
End Sub

[khanjan_a2k]

dannyg... if you look at the example in post 7, thats exactly what it does

[dannyg]

sorry dint download it to see am at college lol

[Keithuk]

dannyg... if you look at the example in post 7, thats exactly what it does

And post #3.