VB.NET 类和对象

2025年3月17日 | 阅读 10 分钟

一个类是由相同属性、流程、对象事件以及与其他成员函数的一般关系的不同数据成员或对象组成的组。此外，我们可以说它就像一个模板或架构师，它告诉我们在类对象中包含时将出现什么数据和函数。例如，它表示将在类的对象上运行的方法和变量。

对象是类的基本运行时单元。定义一个类后，我们可以创建与该类相关的任意数量的对象来访问已定义的属性和方法。例如，Car 是类名，速度、里程和车轮是类的属性，可以由对象访问。

创建类

我们可以使用 Class 关键字后跟类名来创建一个类。并且类的正文以语句 End Class 结尾。以下是创建 VB.NET 编程语言中的类和对象的一般语法。

[ Access_Specifier ] [ Shadows ] [ MustInherit | NotInheritable ] [ Partial ] Class ClassName
' Data Members or Variable Declaration
' Methods Name
' Statement to be executed
End Class

其中，

Access_Specifier：它定义了类的访问级别，例如 Public、Private 或 Friend、Protected、Protected Friend 等，以使用该方法。（这是一个可选参数）。
Shadows：这是一个可选参数。它表示变量的重新声明，并隐藏基类中相同的元素名称或一组重载的元素。
MustInherit：这是一个可选参数，它指定该类只能用作基类，并且对象将不会直接访问基类或抽象类。
NotInheritable：它也是一个可选参数，表示该类不能用作基类。
Partial：正如名称所定义的那样，Partial 表示类的部分定义（可选）。
Implements：它用于指定类从中继承的接口（可选）。

My_program.vb

Public Class My_program
' properties, method name, etc
' Statement to be executed
End Class

在上面的语法中，我们使用 Class 关键字创建了一个名为“My_program”的类。

创建对象的语法

Dim Obj_Name As Class_Name = New Class_Name() ' Declaration of object
Obj_Name.Method_Name() ' Access a method using the object

在上面的语法中，我们为类 Class_Name 创建了一个实例 (Obj_Name)。通过使用对象名称 'Obj_Name' 来访问 Class_Name 的所有数据成员和方法名称。

让我们创建一个程序，使用 VB.NET 中的类和对象来查找矩形的面积和参数。

My_program.vb

Imports System
Module My_program
    Sub Main()
        Dim rect As Rectangle = New Rectangle() 'create an object
        Dim rect2 As Rectangle = New Rectangle() 'create an object
        Dim area, para As Integer

        'rect specification
        rect.setLength = (5)
        rect.setBreadth= (6)

        'rect2 specification
        rect2.setLength = (5)
        rect2.setBreadth = (10)

        'Area of rectangle 
        area = rect.length * rect.Breadth
        'area = rect.GetArea()
        Console.WriteLine(" Area of Rectangle is {0}", area)

        'Parameter of rectangle 
        'para = rect.GetParameter()
         para = 2 (rect2.length + rect.Breadth)
        Console.WriteLine(" Parameter of Rectangle is {0}", para)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
    Public Class Rectangle
        Public length As Integer
        Public Breadth As Integer

        Public Sub setLength(ByVal len As Integer)
            length = len
        End Sub

        Public Sub setBreadth(ByVal bre As Integer)
            Breadth = bre
        End Sub
        Public Function GetArea() As Integer
            Return length * Breadth
        End Function

        Public Function GetParameter() As Integer
            Return 2 * (length + Breadth)
        End Function
    End Class
End Module

输出

成员函数

类的成员函数用于定义类定义中成员的结构。它可以被类的所有已定义对象访问，并对数据成员进行操作。此外，成员变量是要在成员函数中实现的对象的属性。并且我们可以使用公共成员函数访问成员变量。

构造函数和析构函数

在 VB.NET 中，构造函数是一种特殊方法，在创建特定类的对象时实现。构造函数也用于为数据成员的新对象创建和设置默认值。

当我们创建一个类而不定义构造函数时，编译器会自动创建一个默认构造函数。这样，每个类中总是有一个构造函数可用。此外，我们可以使用 New 关键字在一个类中创建多个构造函数，但参数不同，并且它不返回任何内容。

默认构造函数：在 VB.NET 中，当我们在不定义参数的情况下创建构造函数时，它被称为默认构造函数。

VB.NET 默认构造函数语法

以下是使用 VB.NET 中的 New 关键字创建构造函数的语法。

Public Class MyClass
' Creates a Constructor using the New       
Public Sub New()
	'Statement to be executed
       End Sub
End Class 

让我们创建一个程序来在 VB.NET 编程语言中定义默认构造函数。

Default_Const.vb

Imports System
Module Default_Const
    Class Tutor
        Public name As String
        Public topic As String
        ' Create a default constructor
        Public Sub New()
            name = "JavaTpoint"
            topic = "VB.NET Tutorial"
        End Sub
    End Class
    Sub Main()
        ' The constructor will automatically call when the instance of the class is created
        Dim tutor As Tutor = New Tutor() ' Create an object as a tutor
        Console.WriteLine(" Your Site Name is : {0}", tutor.name)
        Console.WriteLine(" Your Topic Name is : {0}", tutor.topic)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

在上面的示例中，我们创建了一个类 'Tutor'，并使用 New() 关键字定义了一个默认构造函数方法，没有传递任何参数。创建对象 (tutor) 时，默认构造函数被调用到类中。

参数化构造函数

在 VB.NET 中，当我们将一个或多个参数传递给构造函数时，该构造函数被称为参数化构造函数。并且类的对象应该在创建时用参数进行初始化。

让我们创建一个程序来使用参数化构造函数将参数传递给一个类。

Para_Const.vb

Imports System
Module Para_Const
    Class Tutor
        Public name As String
        Public topic As String
        ' Create a parameterized constructor to pass parameter
        Public Sub New(ByVal a As String, ByVal b As String)
            name = a
            topic = b
            Console.WriteLine(" We are using a parameterized constructor to pass the parameter")
        End Sub
    End Class
    Sub Main()
        ' The constructor will automatically call when the instance of the class is created
        Dim tutor As Tutor = New Tutor("JavaTpoint", "VB.NET Constructor")
        Console.WriteLine(" Your Site Name is : {0}", tutor.name)
        Console.WriteLine(" Your Topic Name is : {0}", tutor.topic)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

VB.NET 析构函数

在 VB.NET 中，析构函数是一个特殊函数，用于在类对象超出范围时销毁该类的对象。它可以表示为 Finalize() 方法，并且不接受任何参数，也不返回值。此外，当不需要类对象时，它可以被自动调用。

VB.NET 析构函数语法

使用 VB.NET 中的 Finalize() 方法的析构函数。

Class My_Destructor
 ' define the destructor 
    Protected Overrides Sub Finalize()
' Statement or code to be executed 
End Sub
End Class

让我们创建一个程序来在 VB.NET 析构函数中使用 Finalize() 方法。

Destruct.vb

Imports System
Module Destruct
    Class Get_Destroy
        Public Sub New()
            Console.WriteLine(" An Object of the class is being created")
        End Sub
        ' Use Finalize() method of Destructor
        Protected Overrides Sub Finalize()
            Console.WriteLine(" An Object of the class is being destroyed")
            Console.WriteLine(" Press any key to exit")
        End Sub
    End Class

    Sub Main()
        Get_Details() ' After invoking the Get_Details() method, garbage collector is called automatically
        GC.Collect()
        Console.ReadKey()
        End Sub
    Public Sub Get_Details()
        Dim dest As Get_Destroy = New Get_Destroy()
    End Sub
End Module

输出

构造方法重载

在 VB.NET 中，构造函数的重载是一种概念，通过定义具有相同名称但参数列表不同的多个构造函数来重载构造函数，以执行不同的任务。

让我们创建一个程序来在一个类中使用构造函数重载。

Const_Over.vb

Imports System
Module Const_Over
    Class Details
        Public name As String
        Public course As String
        ' Define Default Constructor
        Public Sub New()
            name = "Prince"
            course = "Coputer Science"
            Console.WriteLine(" Uses of Overloading Constructor")
        End Sub
        ' Create a parametrized constructor
        Public Sub New(ByVal a As String, ByVal b As String)
            name = a
            course = b
        End Sub
    End Class
    Sub Main()
        ' Called default constructor
        Dim det As Details = New Details()
        ' Called the parametrized constructor 
        Dim det1 As Details = New Details("Peter", "Knowledge of Data Mining")
        Console.WriteLine(" Your Details are: Name : {0} and Course : {1}", det.name, det.course)
        Console.WriteLine(" Your Overloaded Details are: Name : {0} and Course :{1}", det1.name, det1.course)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

继承

在 VB.NET 中，继承是通过从旧类继承属性和函数并扩展现有类的功能来创建新类的过程。它还提供了代码的可重用性和更快的实现时间。当我们创建一个派生类或继承类时，继承允许我们继承现有类的所有属性。旧类称为基类，继承类称为 派生类。

继承语法

以下是 VB.NET 中继承的语法。

<access_modifier> Class <Name_of_baseClass>
' Implementation of base class
End Class
<access_modifier> Class <Name_of_derivedClass>
Inherits Name_of_baseClass
' Implementation of derived class
End Class

让我们创建一个程序来理解 VB.NET 中的继承概念

Simple_Inherit.vb

Imports System
Module Simple_Inherit
    Public Class Vehicle
        Public Sub speed()
            Console.WriteLine(" 4 Wheeler cars are more luxurious than 2 Wheeler")
        End Sub

        Public Overridable Sub perform()
            Console.WriteLine(" Both Vehicles are good, but in a narrow lane, two-wheeler are more comfortable than 4-Wheeler")
        End Sub
    End Class

    Class Bike
        Inherits Vehicle
        Public Overrides Sub perform()
            Console.WriteLine(" Two-wheeler are lesser weight as compared to 4 wheeler")
        End Sub
    End Class
    Class Car
        Inherits Vehicle
        Public Overrides Sub perform()
            Console.WriteLine(" It is 4 wheelar car")
        End Sub
    End Class

    Sub Main()
        Dim vehicle As Vehicle = New Vehicle()
        Dim bike As Bike = New Bike()
        Dim car As Car = New Car()
        vehicle = bike
        vehicle.perform()
        vehicle = car
        vehicle.perform()
        Console.WriteLine(" Press any ley to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

让我们创建一个使用 VB.NET 中的 MyBase 的继承程序。

Inherit_class.vb

Module Inherit_class
    Class Circle   'base class
        Protected radius As Integer
        Public Const PI As Double = 3.14
        Public Sub New(ByVal r As Integer)
            radius = r
        End Sub
        Public Function GetAreaCircle() As Double
            Return (PI * radius * radius)
        End Function
        Public Overridable Sub Show()
            Console.WriteLine(" Radius of circle : {0}", radius)
            Console.WriteLine(" Area of circle is {0}", GetAreaCircle())
        End Sub
    End Class

    'Derived Class
    Class MyDeriveClass : Inherits Circle
        Private dimen As Double
        Public Sub New(ByVal r As Integer)
            MyBase.New(r)
        End Sub
        Public Function Getdimen() As Double
            Dim dimen As Double
            dimen = GetArea() * 50
            Return dimen
        End Function
        Public Overrides Sub Show()
            MyBase.Show()
            Console.WriteLine("Total Cost: {0}", Getdimen())
        End Sub
    End Class

    Class Circle_Class
        Shared Sub Main()
            Dim c As MyDeriveClass = New MyDeriveClass(5)
            c.Show()
            Console.WriteLine("Press any key to exit")
            Console.ReadKey()
        End Sub
    End Class
End Module

输出

多级继承

VB.NET 仅支持单继承，这意味着一个类可以从基类继承。但是，VB.NET 使用分层继承将一个类扩展到另一个类，这称为 多级继承。例如，类 C 扩展类 B，类 B 扩展类 A，类 C 将继承类 B 和类 A 的成员。将一个类扩展到另一个类的过程称为多级继承。

Public Class A
     ' implementation of code
End Class

Public Class B
      Inherits A
      ' Implementation of Code
End Class

Public Class C
       Inherits A
       ' Implementation of code
End Class

让我们创建一个程序来理解 VB.NET 中的多级继承概念

Multi_inherit1.vb

Module Multi_inherit1
    Public Class A
        Public SName As String
        Public Sub Display()
            Console.WriteLine(" Name of Student : {0}", SName)
        End Sub
    End Class
    Public Class B
        Inherits A
        Public place As String
        Public Sub GetPlace()
            Console.WriteLine(" Address : {0}", place)
        End Sub
    End Class

    Public Class C
        Inherits B
        Public rollno As Integer
        Public Sub GetRollno()
            Console.WriteLine(" Student Roll no. {0}", rollno)
        End Sub
    End Class

    Class Profile
        Public Sub Main(ByVal args As String())
            Dim c As C = New C()
            c.SName = "Donald Trump"
            c.place = "USA"
            c.rollno = 102
            c.Display()
            c.GetPlace()
            c.GetRollno()
            Console.WriteLine(" Press any key to exit")
            Console.ReadKey()
        End Sub
    End Class
End Module

输出

Interface

在 VB.NET 中，接口类似于一个类，用于继承一个类或结构可以实现的所有属性、方法和事件。使用 VB.NET 中的接口，我们可以使用类的多重继承。它使用 Implements 关键字来实现接口，并且 Interface 关键字用于创建接口。 VB.NET 中的所有接口都以 i 开头。

在类中实现接口的语法。

Class MyClass
	Inherits IClass
	Private Sub FetchDetails() Implements IClass.FetchDetails
	' Method Implementation 
	End Sub
End Class

在上面的代码段中，我们在类 MyClass 中继承了一个接口 (IClass)，该接口实现了在类中定义的接口方法。

让我们在 VB.NET 中使用类创建并实现一个实例。

Get_Interface.vb

Module Get_Interface
    Interface IStudent
        Sub Details(ByVal y As String)
    End Interface
    Class Student
        Implements IStudent
        Public Sub Details(ByVal a As String) Implements IStudent.Details
            '       Throw New NotImplementedException()
            Console.WriteLine(" Name of Student: {0}", a)
        End Sub
    End Class

    Class Student1
        Implements IStudent
        Public Sub Details(ByVal a As String) Implements IStudent.Details
            'Throw New NotImplementedException()
            Console.WriteLine(" Course: {0}", a)
        End Sub
    End Class
    Sub Main(ByVal args As String())
        Dim stud As IStudent = New Student()
        stud.Details(" James Watt")
        Dim stud1 As IStudent = New Student1()
        stud1.Details("Computer Science")
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module 

输出

下一主题VB.NET 多线程

VB.NET 类和对象

成员函数

构造函数和析构函数

VB.NET 析构函数

构造方法重载

继承

多级继承

Interface

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET 类和对象

成员函数

构造函数和析构函数

VB.NET 析构函数

构造方法重载

继承

多级继承

Interface

相关帖子

VB.NET 函数

VB.NET 窗体控件

ProgressBar 控件

打印对话框

VB.NET Continue 语句

VB.NET 多线程

下载 & 安装 Visual Studio

VB.NET 枚举

颜色对话框

Menu 控件

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器