请输入专案类型(网站专案或者应用程式专案):
VB.Net
各位先进好,
想请教一下为何下列程式码只会执行最后一个t1=5的情形,
如果我希望先执行10秒,再执行15秒,最后5秒,
这样该怎么修改程式呢?
还望各位能给予指导,感谢!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
t1 = 10
Timer1.Enabled = True
t1 = 15
Timer1.Enabled = True
t1 = 5
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
TextBox1.Text = "T1:" & t1
If t1 = 0 Then
Timer1.Enabled = False
Else
t1 = t1 - 1
End If
End Sub