Overload Constructor Demo : Overload « Class « VB.Net

1. VB.Net
2. Class
3. Overload

Overload Constructor Demo

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

           
       

Related examples in the same category

1.

Using overloaded methods: Integer and Double