通过

演练：定义类 (Visual Basic)

本演练演示如何定义类，然后可用于创建对象。 它还演示如何向新类添加属性和方法，并演示如何初始化对象。

注释

计算机可能会在以下说明中显示某些 Visual Studio 用户界面元素的不同名称或位置。 你拥有的 Visual Studio 版本以及所使用的设置决定了这些元素。 有关更多信息，请参阅 自定义 IDE。

定义类

  1. 单击“文件”菜单上的“新建项目”创建项目。 将显示“新建项目”对话框。

  2. 从 Visual Basic 项目模板列表中选择 Windows 应用程序以显示新项目。

  3. 单击“项目”菜单上的“添加类”，向项目添加新类。 此时将显示“添加新项”对话框。

  4. 选择 “类 ”模板。

  5. 为新类 UserNameInfo.vb命名，然后单击“ 添加 ”以显示新类的代码。

    Public Class UserNameInfo
End Class

    注释

    可以使用 Visual Basic Code 编辑器 将类添加到启动窗体，方法是键入 Class 关键字后跟新类的名称。 代码编辑器提供相应的End Class语句。

  6. 通过在Class和End Class语句之间添加以下代码来定义类的私有字段：

    Private userNameValue As String

    将字段声明为 Private 表示它只能在类中使用。 可以使用访问修饰符（如 Public 提供更多访问权限）使字段在类外部可用。 有关详细信息，请参阅 Visual Basic 中的 Access 级别。

  7. 通过添加以下代码定义类的属性：

    Public Property UserName() As String
    Get
        ' Gets the property value.
        Return userNameValue
    End Get
    Set(ByVal Value As String)
        ' Sets the property value.
        userNameValue = Value
    End Set
End Property

  8. 通过添加以下代码定义类的方法：

    Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

  9. 通过添加名为 Sub New： 的过程为新类定义参数化构造函数：

    Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub

    创建基于此类的对象时，会自动调用 Sub New 构造函数。 此构造函数设置保存用户名的字段的值。

创建用于测试类的按钮

  1. 在 解决方案资源管理器 中右键单击启动窗体的名称，然后单击 “视图设计器”，将启动窗体更改为设计模式。 默认情况下，Windows 应用程序项目的启动窗体命名为Form1.vb。 主窗体将随即显示。

  2. 将按钮添加到主窗体，然后双击它以显示事件处理程序的代码 Button1_Click 。 添加以下代码以调用测试过程：

    ' Create an instance of the class.
Dim user As New UserNameInfo("Moore, Bobby")
' Capitalize the value of the property.
user.Capitalize()
' Display the value of the property.
MsgBox("The original UserName is: " & user.UserName)
' Change the value of the property.
user.UserName = "Worden, Joe"
' Redisplay the value of the property.
MsgBox("The new UserName is: " & user.UserName)

运行应用程序

  1. 按 F5 运行应用程序。 单击窗体上的按钮以调用测试过程。 它显示一条消息，指出原始 UserName 为“MOORE，BOBBY”，因为过程调用了对象的 Capitalize 方法。

  2. 单击“ 确定 ”以消除消息框。 该过程 Button1 Click 更改 UserName 属性的值，并显示一条消息，指出 UserName 的新值为“Worden, Joe”。

另请参阅