VB.NET 的新特点：变量，类型，数组，属性(3)
Class Class1
private field
Private m_Name As String
public property
Public Property Name As String
Get
Return m_Name
End Get
Set
If Value <> "" Then Value is intrinsic variable
m_Name = Value
End If
End Set
End Property
End Class
请注意Set块中包含了内部变量Value。VisualBasic.NET用这个内部变量向你在Set块中的属性实现传递了由客户制定的属性值。另外，在Visual Basic.NET中，程序员不再会有何时应使用Set属性，而何时应使用Let属性的困惑了。
一个属性一定是ReadWrite, ReadOnly, 或 WriteOnly的。上面的例子演示了ReadWrite的属性。下面的例子将演示如何创建ReadOnly和 WriteOnly的属性。
ReadOnly property has Get but no Set
Public ReadOnly Property FullName as String
Get
Return m_FirstName & " " &m_LastName
End Get
End Property
WriteOnly property has Set but no Get
Public WriteOnly Property Password as String
Set
m_Password = Value
End Set
End Property
请注意，当你省略了Get块或Set块时，你一定要使用ReadOnly或WriteOnly关键字
索引属性和默认属性
一个属性可以被指定一个或多个索引。这可以使属性具有数组的特点。请看下面的类：
Class Class1
Private m_Names As String() = {"Ted", "Fred", "Jed"}
an indexed property
Readonly Property Item(Index As Integer) As String
Get
Return m_Names(Index)
End Get
End Property
End Class
在客户端，你可以用下面的例子访问Item属性。
Dim obj As New Class1
Dim s1 String
s1 = obj.Item(0)
如果把这个例子作进一步的改进，你可以把一个索引属性标记为类的默认属性。为了实现这一点，只要把Default关键字加到上一个例子中就可以了，就像这样：
Default Readonly Property Item(Index As Integer)…
一旦你为一个索引属性标记了Default关键字，客户端的代码就可以省略属性的名字而使用对象引用，就像使用一个数组一样。
Dim obj As New Class1
Dim s1 String
s1 = obj(0)
请注意，对于默认属性有一个重要的限制，即非索引属性不可以被标记为默认属性。这个限制在Visual Basic.NET中体现了出来，因为你不可以用Set语句来指定一个对象引用。既然Set语句不再被Visual Basic.NET所支持，那么非索引的默认属性将导致无法解决的多义性问题。
小结
正如你所见到的那样，在许多方面Visual Basic.NET都与它以前的版本不同。它具有更高的一致性和类型安全级别。另外，用Visual Basic.NET我们更容易写出控制性、可读性很高的代码。虽然它有时要求你习惯于那些编译时额外的检查，但它将在你测试和调试时，为你节约宝贵的时间。
好消息是Visual Basic已经被改成了一种更好、更强有力的语言。而坏消息是在Visual Basic 6.0下编写的软件需要做很多工作才可以被移植到Visual Basic.NET下。
