vb.net计时5秒的简单介绍

vb如何设计一个，运行后窗体5秒自动关闭(退出)，请详细说明代码和含义。谢谢！

好久没用vb了，不过记得好像有个时钟控件吧，用那个作为倒计时，5秒就是5000毫秒，然后激活事件中写窗体关闭，就ok了。

相关问答

Q1: VB.NET 计时器的问题

不对。步骤如下：

添加一个label标签名字label1 用来显示时间

再添加一个timer控件 名字timer1 interval属性=1000 用来计时

窗体添加代码

Dim t As Date '用来记录时间

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登录时间:" t.TimeOfDay.ToString

End Sub

Q2: VB.NET写一个按钮倒数5秒后自动执行button事件

Dim so As Integer

Dim A As Integer

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

A = 1

End Sub

Private Sub Timer1_Timer()

so = so + 1

If A = 0 Then

so = 0

Me.Caption = "正常运行"

Exit Sub

Else

Me.Caption = so

If so = 6 Then

so = 0

' 触发button事件

End If

End If

End Sub

Q3: 如何用VB程序做计时器？

3个标签，2个按钮，1个计时器控件

Private Sub Command1_Click() '开始/暂停

If Timer1.Enabled = True Then

Timer1.Enabled = False

Else

Timer1.Enabled = True

End If

End Sub

Private Sub Command2_Click() '停止清0

Label1 = "0"

Label2 = "0"

Label3 = "0"

Timer1.Enabled = False

End Sub

Private Sub Form_Load() '初始设置

Label3 = "0"

Label2 = "0"

Label1 = "0"

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label3 = Label3 + 1

If Label3 = 60 Then

Label3 = "0"

Label2 = Label2 + 1

If Label2 = 60 Then

Label2 = "0"

Label1 = Label1 + 1

End If

End If

End Sub

Q4: 【vb.net】怎么点击一个按钮执行一个代码，5秒后执行另一个代码

button里执行

sleep 5000 '等5秒

call xxxx '另外的过程代码

即可。

Q5: VB.NET,如何用TIMER控件计时

这种功能用不到TIMER，TIMER控件用在这种地方也不适合。（假如你所统计的时间很短，在几分中内话，可以使用，假如你统计的时间很长：几小时、几天几夜，建议改用以下方式）：

在你需要开始计时的地方加入一个记录当前时间，在你想结束的地方也得到一个当前时间。然后将两个时间相减。

希望以上思路可以帮到你。