Mega Code Archive

 

Categories / VB.Net / Class

 

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