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