通过

演练：定义类 (Visual Basic)

  • 项目

本演练演示如何定义类，这些类随后可用于创建对象。 该演练还演示如何将属性和方法添加到新类，并演示如何初始化对象。

注意

以下说明中的某些 Visual Studio 用户界面元素在计算机上出现的名称或位置可能会不同。 这些元素取决于你所使用的 Visual Studio 版本和你所使用的设置。 有关详细信息，请参阅个性化设置 IDE。

定义类

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

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

  3. 在“项目”菜单中单击“添加类”，将一个新类添加到项目中。 此时会显示“添加新项”对话框。

  4. 选择“类”模板。

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

    Public Class UserNameInfo
End Class

    注意

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

  6. 在 Class 和 End Class 语句之间添加以下代码，为该类定义专用字段：

    Private userNameValue As String

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

  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”。

请参阅