Mega Code Archive
Overload Constructor Demo
<![CDATA[
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim timeObject As New Time(2005, 3, 25, 9, 35)
Dim t2 As New Time(timeObject)
timeObject.DisplayCurrentTime( )
t2.DisplayCurrentTime( )
End Sub
End Class
Public Class Time
' Private variables
Private Year As Integer
Private Month As Integer
Private Day As Integer
Private Hour As Integer
Private Minute As Integer
Private Second As Integer = 30
' Public methods
Public Sub DisplayCurrentTime( )
System.Console.WriteLine("{0}/{1}/{2} {3}:{4}:{5}", _
Month, Day, Year, Hour, Minute, Second)
End Sub 'DisplayCurrentTime
Public Sub New( _
ByVal theYear As Integer, _
ByVal theMonth As Integer, _
ByVal theDate As Integer, _
ByVal theHour As Integer, _
ByVal theMinute As Integer)
Year = theYear
Month = theMonth
Day = theDate
Hour = theHour
Minute = theMinute
End Sub
Public Sub New(existingObject As Time)
Year = existingObject.Year
Month = existingObject.Month
Day = existingObject.Day
Hour = existingObject.Hour
Minute = existingObject.Minute
Second = existingObject.Second
End Sub
End Class 'Time
]]>