other than using a label with timer is there any other way to show the actual time.
Time
Collapse
X
-
yeap, you can put it anywhere you want, in a msgbox(time) orOriginally posted by THEAFother than using a label with timer is there any other way to show the actual time.
textbox1.text=t ime
msgbox (time)
form1.caption = time
label1.caption= time
listbox1.addite m(time)
or you can do something like this with a toggle button and a textbox
[CODE=vb]Private Sub ToggleButton1_C lick()
Dim StartTime
TextBox1.Text = Time
StartTime = Timer
Do
If ToggleButton1.V alue = True Then
ToggleButton1.C aption = "Clock Activated"
Do While Timer < StartTime + 1
DoEvents
Loop
TextBox1.Text = Time
StartTime = Timer
Else
ToggleButton1.C aption = "Activate Clock"
Exit Do
End If
Loop
End Sub[/CODE]
Hope that answers your question.
Kad
Comment