16,554
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Inherits System.Windows.Forms.Form
Public Enum DayAction As Integer
Asleep = 0
GettingReadyForWork = 1
TravellingToWork = 2
AtWork = 3
AtLunch = 4
TravelingFromWork = 5
RelexingWithFriends = 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 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