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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!