vb.net - 计时器内标签

Question

我试图在我的程序中的标签中放置一个倒数计时器，但是当我运行该程序时，它没有倒计时。它直接跳到一个，就是这样。

Private Sub CompactTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CompactTimer.Tick
    Dim Time As Integer = 11
    Do Until Time = 0
        ClockLabel.Text = "Compacting database in: " & Time
        Time -= 1
    Loop
End Sub

我还启动了计时器并在 Form_Load 例程中将间隔声明为 500。

Answer 1

摆脱循环并在范围之外声明 Time 变量。

Dim Time As Integer = 11

Private Sub CompactTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) _
                              Handles CompactTimer.Tick
  If Time >= 0 Then
    ClockLabel.Text = "Compacting database in: " & Time
    Time -= 1
  Else
    CompactTimer.Stop
  End If
End Sub