43、编程中的类使用与属性操作

编程中的类使用与属性操作

1. 矩形类的使用与测试

在编程实践中，我们常常会遇到需要计算面积、成本等问题，以矩形类为例。在相关应用里，矩形类的属性设置有其特定规则。当通过属性设置器给矩形的长度或宽度赋值时，会有一个选择结构来确保值的有效性。若传入的参数值大于 0，就将该值赋给对应的私有变量；若小于等于 0，则将 0 赋给私有变量。例如，在长度属性的设置语句中：

If value > 0 Then
    intLength = value
Else
    intLength = 0
End If

宽度属性的设置语句也是类似的逻辑。

参数化构造函数通过类的公共属性间接访问私有变量。这是因为传递给参数化构造函数的值来自应用程序，而非类本身。通过公共属性间接赋值能确保属性过程的 Set 块（通常包含验证代码）被执行。

以下是一个计算矩形面积和成本的示例代码：

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
    ' 声明矩形对象
    Dim rect As New Rectangle
    ' 设置长度和宽度
    rect.Length = Integer.Parse(txtLength.Text)
    rect.Width = Integer.Parse(txtWidth.Text)
    ' 计算面积
    Dim area = rect.GetArea()