Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Call constructor from MustInherit Class

Imports System   Module HelloWorld     Public Sub Main()       Dim hs as New Person("A","B")       Console.WriteLine(hs.FirstName & "." & hs.LastName)     End Sub   End Module      Public MustInherit Class Abstract     Public FirstName, LastName as String     Public Sub New(ByVal FirstName as String, ByVal LastName as String)       Me.FirstName = FirstName       Me.LastName = LastName     End Sub       Public MustOverride Function GetFullName as String     End Class      Public Class Person     Inherits Abstract     Public Sub New(ByVal FirstName as String, ByVal LastName as String)       MyBase.New(FirstName,LastName)     End Sub     Public Overrides Function GetFullName as String       GetFullName = FirstName & "." & LastName     End Function   End Class