类的属性（相关vb.net教程)
1、属性的概念
在系统类中提供了很多属性，如textbox中有text属性。类的属性是一个可以设置值（赋值），也能取出值（引用）的成员。
初看起来，属性与类中的变量十分相似，但实际上是不同的。在对类的变量设置值时是没有检测功能的，例如设置月份为13月显然是不正确的。
显然需要一种机制，它可以在为对象的成员变量设置值时作检查，这就是属性。属性实际上是一种访问成员变量的特殊函数。同时，为了保护类的成员变量不被随意更改，一般被设置成为private,这样在类的外面通过对象就不能访问，只能通过一种特殊函数—属性去访问它。
2、属性的定义
Public property  属性名称
Get  ‘引用属性
…
End get
Set(byval value as 类型)  ‘设置属性
…
End set
End property
例.编写mydate中的year—年 、month—月、 day—日属性，以完成对成员变量m_year 、m_month、 m_day的读写并测试。
程序见，类的属性应用，程序为：
Public Class mydate
    Private m_year, m_month, m_day As Integer
    Public Sub New()
        setsystemdate()
    End Sub
    Public Sub New(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer)
        m_year = y : m_month = m : m_day = d
    End Sub
    Public Sub setsystemdate()
        m_year = Microsoft.VisualBasic.Year(Now())
        m_month = Microsoft.VisualBasic.Month(Now)
        m_day = Microsoft.VisualBasic.Day(Now)
    End Sub
    Public Sub show()
        MsgBox(Str(m_year) + "-" + Str(m_month) + "-" + Str(m_day), MsgBoxStyle.OkOnly, "日期")
    End Sub
    Public Property month() As Integer
        Get
            month = m_month
        End Get
        Set(ByVal m As Integer)
            m_month = m
        End Set
    End Property
    Public Property year() As Integer
        Get
            year = m_year
        End Get
        Set(ByVal y As Integer)
            m_year = y
        End Set
    End Property
    Public Property day() As Integer
        Get
            day = m_day
        End Get
        Set(ByVal d As Integer)
            m_day = d
        End Set
    End Property
End Class
测试类为：
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New mydate
        a.year = 1996
        a.month = 10
        a.day = 6
        a.show()
    End Sub
End Class
说明：
上面程序对年月日的有效性还不能进行正确性检查，改进的方法是课本P165-P166的程序，从略。