我有一个链接到滚动条的文本框,这样当滚动条向右滚动时,它会从0滚动到1440(间隔= 1),然后从分钟转换为时间跨度,然后将此时间跨度显示在文本框中,奇怪的是,我只能根据textbox.text
滚动到23:51(1431 scrollbar.value)。此外,
当我将文本框中的时间更改为24:00时,它会自动更改为0:0,这不是我想要的,因为它会产生误导。滚动条左侧的时间已经是0:0。所以我真的更喜欢24:00代替它。
这是我目前正在使用的代码。我假设一些问题是由触发滚动条的文本框和触发文本框的滚动条引起的。
'UPDATE TBtstsStart when scrollbar is used
Private Sub SBtstStart_ValueChanged(sender As Object, e As EventArgs) Handles SBtstStart.ValueChanged
Dim time As TimeSpan = New TimeSpan(0, CInt(SBtstStart.Value), 0)
TBtstStart.Text = time.Hours & ":" & time.Minutes
End Sub
'UPDATE SBtstStart when textbox is left
Private Sub TBtstStart_Leave(sender As Object, e As EventArgs) Handles TBtstStart.Leave
Dim strarr() As String = TBtstStart.Text.Split(CChar(":"))
SBtstStart.Value = (CInt(strarr(0)) * 60) + CInt(strarr(1))
End Sub