Question

How to inherit a class in VB.NET

Answer 1

Imports System

Class A
    Public n As Integer

    Public Sub Print()
        Console.WriteLine(n)
    End Sub
End Class

Class B : Inherits A
    Public Sub New(ByVal _n As Integer)
        MyBase.n = _n
    End Sub
End Class

Class C : Inherits A
    Public Sub New(ByVal _n As Integer)
        MyBase.n = _n + 100
    End Sub
End Class
 
Public Class Test
    Public Shared Sub Main()
        Dim b_obj As B = New B(0)
        b_obj.Print()

        Dim c_obj As C = New C(3)
        c_obj.Print()
    End Sub
End Class
   
   
   
' Run:
'
' 0
' 103

 

70+ SQL courses for beginners and professionals