Write a program to demonstrate Constructors and Destructors in VB.net.

Being Topper October 17, 2014 0 Comments

WAP to Demonstrate Constructors and Destructors in VB.net.

Imports System.Console

Module Module1

Class base

Private a As Integer

Private b As Double

Private c As String

 

Public Sub New(ByVal x As Integer, ByVal y As Double, ByVal z As String)

WriteLine("Constructor Of Base Class Executed ! ")

a = x

b = y

c = z

WriteLine("a=" & a)

WriteLine("b=" & b)

WriteLine("c=" & c)

End Sub

 

Protected Overrides Sub finalize()

WriteLine("Destructor of Base Class Executed ! ")

End Sub

End Class

 

Class derive : Inherits base

Private d As Integer

Public Sub New(ByVal e As Integer, ByVal x As Integer, ByVal y As Double, ByVal z As String)

MyBase.New(x, y, z)

WriteLine("Constructor of Derived Class Executed!")

d = e

WriteLine("d=" & d)

End Sub

Protected Overrides Sub finalize()

WriteLine("Destructor of Derived Class Executed ! ")

End Sub

End Class

 

Sub Main()

WriteLine("When WE Declare Object of Base Classs :- ")

WriteLine()

WriteLine()

Dim s1 As base = New base(20, 30.5, "GOGO")

 

WriteLine("When WE Declare Object of Derived Classs :- ")

WriteLine()

WriteLine()

Dim s2 As derive = New derive(10, 20, 30.5, "GOGO")

 

End Sub

 

End Module

OUTPUT

output of vb.net Program to implement Constructors and Destructors

AboutBeing Topper

Being Topper is India's Leading Digital Marketing Institute in Delhi. Being Topper Provide Most Advanced Digital Marketing Course for Students Startups and Entrepreneurs in India. Being Topper Institute of Digital Marketing is famous for its quality classroom Digital Marketing Training in India.

In Socials: