在 Visual Basic (VB) 中，自定义对象通常涉及定义一个类，然后在代码中实例化该类。类是对象的蓝图，定义了对象的属性和方法。下面是一个详细的示例，展示如何在 VB 中定义一个自定义的 Person 类，并使用它来创建对象。
定义一个自定义的 Person 类
假设我们希望创建一个 Person 类，其中包含姓名和年龄属性，以及一个用于输出问候信息的方法。
vb
Public Class Person
' 定义私有字段
Private _name As String
Private _age As
' 构造函数，用于初始化对象的初始状态
Public Sub New(name As String, age As Integer)
_name = name
_age = age
End Sub
' 定义一个属性，用于获取和设置名字
Public Property Name As String
Get
Return _name
End Get
Set(value As String)
_name = value
End Set
End Property
' 定义一个属性，用于获取和设置年龄
Public Property Age As Integer
Get
Return _age
End Get
Set(value As Integer)
_age = value
End Set
End Property
' 定义一个方法，用于输出问候信息
Public Sub Greet()
Console.WriteLine($"Hello, my name is {_name} and I am {_age} years old.")
End Sub
End Class
实例化 Person 对象
一旦定义了 Person 类，就可以通过调用 New 关键字来创建该类的实例。
vb
Module Module1
Sub Main()
' 创建一个 Person 对象
Dim person As New Person("Alice", 30)
' 调用 Greet 方法
person.Greet()
