Constructor with parameters : Constructor « Class « VB.Net

Constructor with parameters

Constructor with parameters
Imports System

Public Class MainClass
    Shared Sub Main()
       Dim currentTime As DateTime = DateTime.Now
       Dim time1 As New Time(currentTime)
       time1.DisplayCurrentTime(  )
       Dim time2 As New Time(2005, 11, 18, 11, 3, 30)
       time2.DisplayCurrentTime(  )

    End Sub
End Class

 Public Class Time

    Private year As Integer
    Private month As Integer
    Private dayOfMonth As Integer
    Private hour As Integer
    Private minute As Integer
    Private second As Integer

    Public Sub DisplayCurrentTime(  )
       Console.WriteLine( _
       "{0}/{1}/{2} {3}:{4}:{5}", _
       month, dayOfMonth, year, hour, minute, second)
    End Sub 

    Public Sub New(ByVal dt As DateTime)
       year = dt.Year
       month = dt.Month
       dayOfMonth = dt.Day
       hour = dt.Hour
       minute = dt.Minute
       second = dt.Second
    End Sub

    Public Sub New( _
    ByVal year As Integer, _
    ByVal month As Integer, _
    ByVal dayOfMonth As Integer, _
    ByVal hour As Integer, _
    ByVal minute As Integer, _
    ByVal second As Integer)
       Me.year = year
       Me.month = month
       Me.dayOfMonth = dayOfMonth
       Me.hour = hour
       Me.minute = minute
       Me.second = second
    End Sub
 End Class


Related examples in the same category

1.Call base constructorCall base constructor
2.Class with two constructorsClass with two constructors
3.Use Constructor to init member variables
4.Multiplie Constructors
5.Init Member Variables through ConstructorInit Member Variables through Constructor
6.Overload Constructor DemoOverload Constructor Demo
7.Overloading constructorsOverloading constructors