VB.NET的枚举求教
小弟刚开始学习VB.NET，书是vb2010入门经典第六版，对于枚举不太懂，还有这些代码里出现了set，property，get等语句，不知道是干吗用的？这个示例是Enum Demo，通过调节时间控件的时间来现实XX在这个时间做什么事.

Public Class Form1
    'DayAction Enumeration
    Private Enum DayAction As Integer
        Asleep = 0
        GettingReadyForWork = 1
        TravelingToWork = 2
        AtWork = 3
        AtLunch = 4
        TravelingFromWork = 5
        RelaxingWithFriends = 6
        GettingReadyForBed = 7
    End Enum

    'Declare variable
    Private CurrentState As DayAction

    'Hour property
    Private Property Hour() As Integer
        Get
            'Return the current hour displayed
            Return dtpHour.Value.Hour
        End Get
        Set(ByVal value As Integer)
            'Set the date using the hour passed to this property
            dtpHour.Value = _
                New Date(Now.Year, Now.Month, Now.Day, value, 0, 0)

            'Determine the state
            If value >= 6 And value < 7 Then
                CurrentState = DayAction.GettingReadyForWork
            ElseIf value >= 7 And value < 8 Then
                CurrentState = DayAction.TravelingToWork
            ElseIf value >= 8 And value < 13 Then
                CurrentState = DayAction.AtWork
            ElseIf value >= 13 And value < 14 Then
                CurrentState = DayAction.AtLunch
            ElseIf value >= 14 And value < 17 Then
                CurrentState = DayAction.AtWork
            ElseIf value >= 17 And value < 18 Then 
 
                CurrentState = DayAction.TravelingFromWork
            ElseIf value >= 18 And value < 22 Then
                CurrentState = DayAction.RelaxingWithFriends
            ElseIf value >= 22 And value < 23 Then
                CurrentState = DayAction.GettingReadyForBed
            Else
                CurrentState = DayAction.Asleep
            End If

            'Set the display text
            lblState.Text = "At " & value & ":00, Richard is " & _
                CurrentState.ToString

        End Set
    End Property

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Set the Hour property to the current hour
        Me.Hour = Now.Hour

    End Sub

    Private Sub dtpHour_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpHour.ValueChanged

        'Update the Hour property
        Me.Hour = dtpHour.Value.Hour

    End Sub
End Class

[解决办法]
Property用于标识一个类成员为属性而不是方法.属性可以被获取,属性在被获以的时候利用get句柄返回其值.属性可以被赋值,这个过程是由set句柄完成的.这两个句柄可以不同时存在.如果只有get而没有set,那属性就是只读的.如果只有set而没有get,那属性就是只写的.
[解决办法]
Property是方法的属性，get方法保证了你调用me.hour时能够得到属性hour的值。set方法则是对属性hour的值进行设置。你可以debug看一下 XX = form1.hour 和 form1.hour = XX 时代码的执行过程