面向对象的编程 (Visual Basic)

Visual Basic 提供对面向对象的编程（包括封装、继承和多态性）的完整支持。

“封装”意味着将一组相关属性、方法和其他成员视为一个单元或对象。

“继承”描述基于现有类创建新类的能力。

多态性意味着可以有多个可互换使用的类，即使每个类以不同方式实现相同属性或方法。

本节介绍下列概念：

• 类和对象
  • 类成员
    • 属性和字段
    • 方法
    • 构造函数
    • 析构函数
    • 事件
    • 嵌套类
  • 访问修饰符和访问级别
    • 实例化类
    • 共享类和成员
    • 匿名类型
• 继承
  • 重写成员
• 接口
• 泛型
• 委托

类和对象

“类”和“对象”这两个术语有时互换使用，但实际上，类描述对象的“类型”，而对象是类的可用“实例”。 因此，创建对象的操作称为“实例化”。 如果使用蓝图类比，类是蓝图，对象就是基于该蓝图的建筑。

定义类：

Class SampleClass
End Class

Visual Basic 还提供了类的轻量版本，称为“结构”。当需要创建大量对象但不希望因此占用太多内存时，可以使用此轻量版本。

定义结构：

Structure SampleStructure
End Structure

有关详细信息，请参阅：

• Class 语句
• Structure 语句

类成员

每个类都可以具有不同的“类成员”。类成员包括属性（用于描述类数据）、方法（用于定义类行为）和事件（用于在不同的类和对象之间提供通信）。

属性和字段

字段和属性表示对象包含的信息。 字段类似于变量，因为可以直接读取或设置它们。

定义字段：

Class SampleClass
    Public SampleField As String
End Class

属性具有 get 和 set 过程，它们对如何设置或返回值提供更多的控制。

Visual Basic 允许你创建用于存储属性值的专用字段，或使用所谓的自动实现的属性，这些属性会在后台自动创建此字段，并为属性过程提供基本逻辑。

定义自动实现的属性：

Class SampleClass
    Public Property SampleProperty as String
End Class

如果你需要执行一些其他操作来读取和写入属性值，请定义一个用于存储属性值的字段，并提供用于存储和检索该字段的基本逻辑：

Class SampleClass
    Private m_Sample As String
    Public Property Sample() As String
        Get
            ' Return the value stored in the field.
            Return m_Sample
        End Get
        Set(ByVal Value As String)
            ' Store the value in the field.
            m_Sample = Value
        End Set
    End Property
End Class

大多数属性的方法或过程都是既可以设置也可以获取属性值。 但你可以创建只读或只写属性来限制对它们的修改或读取。 在 Visual Basic 中，可以使用 ReadOnly 和 WriteOnly 关键字。 但是，自动实现的属性不能是只读的或只读的。

有关详细信息，请参阅：

• Property Statement
• Get 语句
• Set 语句
• ReadOnly
• WriteOnly

方法

“方法”是对象可以执行的操作。

备注

在 Visual Basic 中，方法的创建途径有两种：如果方法不返回值，可使用 Sub 语句；如果方法返回值，可使用 Function 语句。

定义类的方法：

Class SampleClass
    Public Function SampleFunc(ByVal SampleParam As String)
        ' Add code here
    End Function
End Class

对于同一方法，一个类可以有多个实现，也叫“重载”，这些实现的区别在于参数个数或参数类型的不同。

重载方法：

Overloads Sub Display(ByVal theChar As Char)
    ' Add code that displays Char data.
End Sub
Overloads Sub Display(ByVal theInteger As Integer)
    ' Add code that displays Integer data.
End Sub

大多数情况下，方法是在类定义中声明的。 但是，Visual Basic 还支持“扩展方法”，这种方法支持将方法添加到实际类定义之外的现有类中。

有关详细信息，请参阅：

• Function 语句
• Sub 语句
• 重载
• 扩展方法

构造函数

构造函数一种类方法，它们在创建给定类型的对象时自动执行。 构造函数通常用于初始化新对象的数据成员。 构造函数只能在创建类时运行一次。 此外，构造函数中的代码始终在类中所有其他代码之前运行。 但是，你可以按照为任何其他方法创建重载的方式，创建多个构造函数重载。

定义类的构造函数：

Class SampleClass
    Sub New(ByVal s As String)
        // Add code here.
    End Sub
End Class

有关详细信息，请参阅对象生存期：如何创建和销毁对象。

析构函数

析构函数用于析构类的实例。 在 .NET Framework 中，垃圾回收器自动管理应用程序中托管对象的内存分配和释放。 但是，你可能仍会需要析构函数来清理应用程序创建的所有非托管资源。 一个类只能有一个析构函数。

有关析构函数和 .NET Framework 垃圾回收的详细信息，请参阅垃圾回收。

事件

类或对象可以通过事件向其他类或对象通知发生的相关事情。 发送（或引发）事件的类称为“发行者”，接收（或处理）事件的类称为“订户”。 有关事件以及如何引发和处理事件的详细信息，请参阅事件。

• 若要声明事件，使用 Event 语句。

• 若要引发事件，使用 RaiseEvent 语句。

• 若要以声明的方式指定事件处理程序，请使用 WithEvents 语句和 Handles 子句。

• 若要能够动态添加、删除和更改与事件关联的事件处理程序，请将 AddressOf 运算符与 AddHandler 语句和 RemoveHandler 语句结合使用。

嵌套类

在另一个类中定义的类称为“嵌套”。 默认情况下，嵌套类是私有类。

Class Container
    Class Nested
    ' Add code here.
    End Class
End Class

若要创建嵌套类的实例，请使用容器类的名称，后接一个点，再接嵌套类的名称：

Dim nestedInstance As Container.Nested = New Container.Nested()

访问修饰符和访问级别

所有类和类方法都可以使用“访问修饰符”指定自己为其他类提供的访问级别。

可用的访问修饰符有以下这些：

Visual Basic 修饰符	定义
Public	同一程序集中的任何其他代码或引用该程序集的其他程序集都可以访问该类型或成员。
专用	只有同一类中的代码可以访问该类型或成员。
Protected	只有同一类或派生类中的代码可以访问该类型或成员。
Friend	同一程序集中的任何代码都可以访问该类型或成员，但其他程序集中的代码不可以。
Protected Friend	同一程序集中的任何代码或其他程序集中的任何派生类都可以访问该类型或成员。

有关详细信息，请参阅 Visual Basic 中的访问级别。

实例化类

若要创建对象，你需要实例化类，即创建类实例。

Dim sampleObject as New SampleClass()

实例化类之后，可以为该实例的属性和字段赋值，还可以调用类方法。

' Set a property value.
sampleObject.SampleProperty = "Sample String"
' Call a method.
sampleObject.SampleMethod()

若要在类的实例化过程中为属性赋值，请使用对象初始值设定项：

Dim sampleObject = New SampleClass With
    {.FirstProperty = "A", .SecondProperty = "B"}

有关详情，请参阅：

• 新建操作员
• 对象初始值设定项：命名和匿名类型

共享类和成员

类的共享成员是指由该类的所有实例共享的属性、过程或字段。

定义共享成员：

Class SampleClass
    Public Shared SampleString As String = "Sample String"
End Class

若要访问共享成员，请使用类的名称，但不要创建此类的对象：

MsgBox(SampleClass.SampleString)

Visual Basic 中的共享模块仅有共享成员，无法进行实例化。 共享成员也无法访问非共享属性、字段或方法

有关详细信息，请参阅：

• 共享
• Module 语句

匿名类型

匿名类型使你无需为数据类型编写类定义即可创建对象。 此时，编译器将为你生成类。 该类没有可使用的名称，且包含在声明对象时指定的属性。

创建匿名类型的实例：

' sampleObject is an instance of a simple anonymous type.
Dim sampleObject =
    New With {Key .FirstProperty = "A", .SecondProperty = "B"}

有关详情，请参阅：匿名类型。

继承

通过继承，可以创建一个新类，它重用、扩展和修改另一个类中定义的行为。 其成员被继承的类称为“基类”，继承这些成员的类称为“派生类”。 但是，Visual Basic 中的所有类都隐式继承自 Object 类，该类支持 .NET 类层次结构，并为所有类提供低级别服务。

备注

Visual Basic 不支持多重继承。 即，只能为一个派生类指定一个基类。

从基类继承：

Class DerivedClass
    Inherits BaseClass
End Class

默认情况下，可以继承所有类。 但你可以指定不得将某个类用作基类，也可以创建只能用作基类的类。

指定不得将某个类用作基类：

NotInheritable Class SampleClass
End Class

指定只能用作基类且无法实例化的类：

MustInherit Class BaseClass
End Class

有关详情，请参阅：

• Inherits Statement
• NotInheritable
• MustInherit

重写成员

默认情况下，派生类继承其基类的所有成员。 若希望更改继承成员的行为，则需要重写该成员。 即，可以在派生类中定义方法、属性或事件的新实现。

下列修饰符用于控制如何重写属性和方法：

Visual Basic 修饰符	定义
Overrides	允许在派生类中重写类成员。
替代	重写基类中定义的虚拟（可重写）成员。
NotOverridable	禁止在继承类中重写成员。
New	要求在派生类中重写类成员。
阴影	隐藏继承自基类的成员

接口

和类一样，接口也定义了一系列属性、方法和事件。 但与类不同的是，接口并不提供实现。 它们由类来实现，并从类中被定义为单独的实体。 接口表示一种约定，实现接口的类必须严格按其定义来实现接口的每个方面。

定义接口：

Public Interface ISampleInterface
    Sub DoSomething()
End Interface

在类中实现接口：

Class SampleClass
    Implements ISampleInterface
    Sub DoSomething
        ' Method implementation.
    End Sub
End Class

有关详细信息，请参阅：

• 接口
• Interface 语句
• Implements 语句

泛型

.NET 中的类、结构、接口和方法可以包括“类型参数”，类型参数定义它们可以存储或使用的对象的类型。 最常见的泛型示例是集合，从中可以指定要存储在集合中的对象的类型。

定义泛型类：

Class SampleGeneric(Of T)
    Public Field As T
End Class

创建泛型类的实例：

Dim sampleObject As New SampleGeneric(Of String)
sampleObject.Field = "Sample string"

有关详细信息，请参见:

• 泛型
• Generic Types in Visual Basic

委托

“委托”是一种类型，它定义方法签名，可以提供对具有兼容签名的任何方法的引用。 你可以通过委托调用方法。 委托用于将方法作为参数传递给其他方法。

备注

事件处理程序就是通过委托调用的方法。 有关在事件处理中使用委托的详细信息，请参阅事件。

创建委托：

Delegate Sub SampleDelegate(ByVal str As String)

创建对与委托指定的签名相匹配的方法的引用：

Class SampleClass
    ' Method that matches the SampleDelegate signature.
    Sub SampleSub(ByVal str As String)
        ' Add code here.
    End Sub
    ' Method that instantiates the delegate.
    Sub SampleDelegateSub()
        Dim sd As SampleDelegate = AddressOf SampleSub
        sd("Sample string")
    End Sub
End Class

有关详细信息，请参阅：

• 委托
• Delegate 语句
• AddressOf 运算符

另请参阅

• Visual Basic 编程指南