View

basic clock,

Snippet Author: ryan
Rated:

Snippet Description: this is a basic clock for visual basic that updates itself to your computers time, will only work if you have vb or make it a stand alone. Design a window that displays the current month, day, and year. Also, display the current time, updating it every second (look into the Timer control). Make the window look something like a calendar page. Play with object properties to make it pretty.

Properties:

Form frmCalendar:
	Caption = My Calendar
	BorderStyle = 1 - Fixed Single

Timer timDisplay:
	Interval = 1000

Label lblDay:
	Caption = Sunday
	FontName = Times New Roman
	FontBold = True
	FontSize = 24

Label lblTime:
	Caption = 00:00:00 PM
	FontName = Times New Roman
	FontBold = True
	FontSize = 24

Label lblYear:
	Alignment = 2 - Center
	Caption = 1998
	FontName = Times New Roman
	FontBold = True
	FontSize = 24

Label lblNumber:
	Alignment = 2 - Center
	Caption = 31
	FontName = Arial
	FontBold = True
	FontSize = 72

Label lblMonth:
	Alignment = 2 - Center
	Caption = March
	FontName = Times New Roman
	FontBold = True
	FontSize = 24

Code:

General Declarations:

Option Explicit

timDisplay Timer Event:

Private Sub timDisplay_Timer()
Dim Today As Variant
Today = Now
lblDay.Caption = Format(Today, "dddd")
lblMonth.Caption = Format(Today, "mmmm")
lblYear.Caption = Format(Today, "yyyy")
lblnumber.Caption = Format(Today, "d")
lblTime.Caption = Format(Today, "h:mm:ss ampm")
End Sub

Favorite Script -

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

basic clock,