Learn Visual Basic 6.0

1. Introduction to the Visual Basic Language and Environment

Exercise 1: Calendar/Time Display

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.

My Solution:

Form:

Properties:

frmCalendar

Caption = My Calendar
BorderStyle = 1 - Fixed Single

timDisplay

Interval = 1000

lblDay

Caption = Sunday
FontName = Times New Roman
FontBold = True
FontSize = 24

lblTime

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

lblYear

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

lblNumber

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

lblMonth

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

Code:

Option Explicit

timDisplay

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

Counter Hit

This Homepage is special brought to you by CK Tan

Hosted by www.Geocities.ws