VB.net 枚举经典源码

Form1 中

trackbar name:trkHour maximum : 23 minimum:0

textbox name:txtstate

Public Class Form1

Inherits System.Windows.Forms.Form

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

Public CurrentState As DayAction

Public Property Hour() As Integer
Get
Return trkHour.Value
End Get

Set(ByVal Value As Integer)
trkHour.Value = Value
Dim hour As Integer = Value
If hour >= 6 And hour < 7 Then
CurrentState = DayAction.TravelingToWork
ElseIf hour >= 7 And hour < 8 Then
CurrentState = DayAction.TravelingToWork
ElseIf hour >= 8 And hour < 13 Then
CurrentState = DayAction.AtWork
ElseIf hour >= 13 And hour < 14 Then
CurrentState = DayAction.AtLunch
ElseIf hour >= 14 And hour < 17 Then
CurrentState = DayAction.AtWork
ElseIf hour >= 17 And hour < 18 Then
CurrentState = DayAction.TravelingFromWork
ElseIf hour > 18 And hour < 22 Then
CurrentState = DayAction.RelaxingWithFriends
ElseIf hour >= 22 And hour < 23 Then
CurrentState = DayAction.GettingReadyForBed
Else
CurrentState = DayAction.Asleep
End If

Dim statusText As String
statusText = "at" & Value & ":00,Len is" & CurrentState.ToString()
txtState.Text = statusText
End Set

End Property

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

Me.Hour = Date.Now.Hour

End Sub

Private Sub trkHour_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trkHour.Scroll

Me.Hour = trkHour.Value

End Sub
End Class