Copy constructor : Constructor « Class Module « VB.Net Tutorial

Option Strict On
 Imports System
 Public Class Time
    ' Private variables
    Private Year As Integer
    Private Month As Integer
    Private mDate 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, mDate, 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
       mDate = theDate
       Hour = theHour
       Minute = theMinute
    End Sub

    Public Sub New(existingObject As Time)
       Year = existingObject.Year
       Month = existingObject.Month
       mDate = existingObject.mDate
       Hour = existingObject.Hour
       Minute = existingObject.Minute
       Second = existingObject.Second
    End Sub

 End Class 'Time

 Module Module1

    Sub Main( )
       Dim timeObject As New Time(2005, 3, 25, 9, 35)
       Dim t2 As New Time(timeObject)
       timeObject.DisplayCurrentTime( )
       t2.DisplayCurrentTime( )
    End Sub

 End Module
3/25/2005 9:35:30
3/25/2005 9:35:30

6.30.1.Class with constructor
6.30.2.Empty constructor
6.30.3.Default constructor
6.30.4.Copy constructor
6.30.5.Constructors in three levels
6.30.6.Overloaded constructors
6.30.7.Call member method in constructor
6.30.8.Private Constructor
6.30.9.Inheriting Constructors
6.30.10.Shared Constructor
6.30.11.Constructor with Optional parameter
6.30.12.Constructor Chain
6.30.13.constructor inheriting