vb.net倒计时的简单介绍

vb.net倒计时不显示1

Label1.Text = 20 - time

Label6.Text = 20 - time '不要加1就可以了

或者:

If time = 20 Then time = 0

time = time + 1 '这句与上面的调换了位置

或者按照楼上的方法

相关问答

Q1: vb.net怎么倒计时关闭窗口 就是我要它 还有15秒关闭form1 怎么能加什么控件吗？

加一个计时器控件Timer1

代码如下:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Timer1.Interval = 15000

Timer1.Start()

MessageBox.Show("程序将在15s后关闭.")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Dispose()

End Sub

Q2: 求高手用vb.net做一个倒计时程序。

画面添加textbox1 timer1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 1000

TextBox1.Text = "2011/12/07 10:35:00"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If IsDate(TextBox1.Text) = True Then

Timer1.Start()

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Format(Now, "yyyy/MM/dd hh:mm:ss") = TextBox1.Text Then

MsgBox("It's time to go")

Timer1.Stop()

End If

End Sub

Q3: VB.net中如何用timer控件编出一个简单的倒计时器？

Dim tCount As Integer '用来计数

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

       tCount = 10

       Timer1.Interval = 1000 '每秒执行一次

       Timer1.Enabled = True

   End

Sub

   Private Sub

Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick

       tCount -= 1

       If tCount = 0 Then

           MessageBox.Show("时间到")

           Timer1.Enabled = False

       End If

   End

Sub

vb.net倒计时的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net倒计时的信息别忘了在本站进行查找喔。