Clock

[krnsmartazz]

Is there any way to make a clock using a text box and make it look nice? Are there any easier ways to make a clock?

 

[MajP]

http://office.microsoft.com/nb-no/assistance/HP011210611033.aspx

 

[krnsmartazz]

Is there anyway i can create something to just show the local time on the computer?

 

[MajP]

In your textbox
=Format(Now(),"hh:nn:ss am/pm")

set the forms timer interal to 1000. (milliseconds)

Private Sub Form_Timer()
Me.Text1.Requery
End Sub

You may only want to show minutes. Then
=Format(Now(),"hh:nn am/pm")
timer interval is 60*1000 = 60000

 

[krnsmartazz]

How can i make this text box transparent and not let the cursor click inside the next box? The code for the clock works well it just seems i cant get my text to be transparent.

 

[ZmrAbdulla]

You can use a label cotrol instead of textbox.

Private Sub Form_Timer()
  Me.Label0.Caption = Format(Now(), "hh:nn:ss am/pm")
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[krnsmartazz]

Thanks, the label worked out great.

 

[MajP]

1) To make a textbox transparent
backstyle = transparent
2) To keep the cursor out
enabled = false

 

[ZmrAbdulla]

Enabled=No
Locked=Yes

to avoid the font become gray.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.