Multiplie Constructors : Constructor « Class « VB.Net

1. VB.Net
2. Class
3. Constructor

Multiplie Constructors

Imports System.IO

Module Module1

    Sub Main()
        Dim Palm = New Book("Book 1", 49.99)
        Dim CSharp = New Book("Book 2", "Name", "Publisher", 49.99)
        Dim VB = New Book("Book 3", "Name 2", "Publish", 49.99, 18, "April 2002")

    End Sub

End Module

    Class Book
        Private Title As String
        Private Publisher As String
        Private Author As String
        Private Price As Double
        Private ChapterCount As Integer
        Private CopyrightDate As String

        Public Sub New(ByVal Title As String, ByVal Price As Double)
            Me.Title = Title
            Me.Price = Price
            Me.Author = ""
            Me.ChapterCount = 0
            Me.Publisher = ""
            Me.CopyrightDate = ""
        End Sub

        Public Sub New(ByVal Title As String, ByVal Author As String, ByVal Publisher As String, ByVal Price As Double)
            Me.Title = Title
            Me.Author = Author
            Me.Publisher = Publisher
            Me.Price = Price
            Me.ChapterCount = 0
            Me.CopyrightDate = ""
        End Sub

        Public Sub New(ByVal Title As String, ByVal Author As String, ByVal Publisher As String, ByVal Price As Double, ByVal ChapterCount As Integer, ByVal CopyrightDate As Date)
            Me.Title = Title
            Me.Author = Author
            Me.Publisher = Publisher
            Me.Price = Price
            Me.ChapterCount = ChapterCount
            Me.CopyrightDate = CopyrightDate
        End Sub

    End Class

           
       

Related examples in the same category

1.	Call base constructor
2.	Class with two constructors
3.	Constructor with parameters
4.	Use Constructor to init member variables
5.	Init Member Variables through Constructor
6.	Overload Constructor Demo
7.	Overloading constructors