0

我有一个链接到滚动条的文本框,这样当滚动条向右滚动时,它会从 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
4

0 回答 0