vb.net中的枚举数据类型
工具/原料
visual studio 2015
使用枚举类型
1、Record a DayAction of one of the following possible values:AsleepGetting ready for workTraveling to workAt workAt lunchTraveling from workRelaxing with friendsGetting ready for bed
2、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
3、'Declare variablePrivate CurrentState As DayActionAdd the followi荏鱿胫协ng code below the variable you just added:'Hour propertyPrivate Property Hour() As Integer Get 'Return the current hour displayed Return dtpHour.Value.Hour End Get Set(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) 'Set the display text lblState.Text = "At " & value & ":00, Richard is " End SetEnd Property
4、Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 'Set the Hour property to the current hour Me.Hour = Now.HourEnd Sub
5、Private Sub dtpHour_ValueChanged(sender As Object, e As EventArgs) Handles dtpHour.ValueChanged 'Update the Hour property Me.Hour = dtpHour.Value.HourEnd Sub
6、执行结果入戏图所示：
label数值确定
1、Set(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 " & CurrentStateEnd Set
2、'Set the display text lblState.Text = "At " & value & ":00, Richard is " & CurrentState.ToString()End Set
