我试图在我的程序中的标签中放置一个倒数计时器,但是当我运行该程序时,它没有倒计时。它直接跳到一个,就是这样。
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。
最佳答案
摆脱循环并在范围之外声明 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
关于vb.net - 计时器内标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17430567/