Обновление текста в TextBox с интервалом в 1 секунду

Question

Я пытаюсь отобразить местное время в текстовом поле, но оно обновляется ... Я использовал таймер, чтобы, надеюсь, обновить время, но, похоже, он не перепечатывает мой текст. Если бы вы могли помочь мне, это было бы здорово!

РЕДАКТИРОВАТЬ *** Итак, я попытался сделать это с TextBox.AppendText (), чтобы посмотреть, что произойдет, если он постоянно перепечатывается, и я заметил, что дата и время не обновляются вообще. Нужно ли обновлять форму ???

Public Class Form1

    Dim t As String = My.Computer.Clock.LocalTime
    Dim m As String = t & vbCrLf & " - Time Left - "
    Private Timer As System.Windows.Forms.Timer
    Private TimerCounter As Integer = 0
    Dim TempText As String = m

    Protected Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)
        TextBox.TextAlign = HorizontalAlignment.Center
        TimerCounter += 1
        TextBox.Text = t
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown 'this goes with the line just above
        Timer = New Windows.Forms.Timer With {.Interval = 1000}
        AddHandler Timer.Tick, AddressOf TimerTick
        Timer.Start()
    End Sub

End Class

Мой ожидаемый результат, если местное время обновляется в textbox1 каждый раз, когда срабатывает таймер.

Answer 1

Вы устанавливаете переменную t в момент ее объявления, но затем никогда не обновляете ее.Поэтому он всегда содержит одно и то же значение.
На самом деле вам даже не нужна эта переменная.Вы можете просто установить TextBox.Text на My.Computer.Clock.LocalTime

Protected Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)

    ' You can set this property just one time when you define your TextBox
    ' TextBox.TextAlign = HorizontalAlignment.Center
    TimerCounter += 1
    TextBox.Text = My.Computer.Clock.LocalTime
End Sub