Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.hour = Date.Now.Hour
End Sub
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)"
txtstate.Text = statustext
End Set
End Property
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
这段代码中Get中Return trkhour.Value把值传给谁了？

谁要就给谁

多看点基础的东西，别上来就直接用别人的代码

今天吃饭，我妈嫌坐着离菜远，就直接从我碗里夹菜吃！