合理使用这两个属性Cartltem应该按照以下方式使用
Dim NewItem As New CartItem()
ItemProductID =
itemProductName=The WroxUnited Scarf
这段代码将创建一个类并设置其属性在设置某个属性值时调用该属性的setter部分所要设置的值(在该示例中ProductID为)被作为变量的value传递到setter中
要读取这些属性可以执行以下操作
IDTextBoxText=itemProductIDToString()
NameTextBoxText=itemProductName
第一行读取属性并将它转换为字符串因为TextBox的Text属性是String类型在访问该属性时调用getter它只是返回内部变量的值对于ProductID属性来说是Integer但ProductName属性是String因此不需要转换
只读属性
如果只要提供对某个属性的只读访问而不允许该类的用户更新属性则可以使它变成只读例如
Public ReadOnly Property ProductID() As Integer
Get
Return _productID
End Get
End Property
这里添加了另一个关键字ReadOnly而且只包含了该属性的getter部分现在不能设置该值这是通过CartItem的LineTotal属性来完成的
Public ReadOnly Property Linetotal() As Double
Get
Return _quantity * _price
End Get Public WriteOnly Property ProductID() As Double
Set (ByVal value As Integer)
_productID = value
End Set
End Property
End Property
可以看到这里甚至没有使用Private变量返回的值只是一个计算值
由于该属性是只读的因此不能设置这个值如果尝试修改会产生编译错误
[] [] [] [] [] [] [] []