UC知道VB倒计时错误求教
来源：百度知道 编辑：UC知道 时间：2024/06/14 22:41:55
在一个form中输入了如下代码，但是倒计时从一开始进入程序就开始了，有什么办法可以在打开这个form的时候才开始倒计时？并且，下一次打开form时，也是重新开始倒计时。高手帮帮忙……
Dim ba As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Label3.Caption = "本窗口将于10秒钟后，自动关闭。"
ba = 10
End Sub
Private Sub Timer1_Timer()
Label3.Caption = "本窗口将于" & ba & "秒钟后，自动关闭。"
ba = ba - 1
If ba = 0 Then
Form1.Hide
form2.Show
End If
End Sub
Dim ba As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Label3.Caption = "本窗口将于10秒钟后，自动关闭。"
ba = 10
End Sub
Private Sub Timer1_Timer()
Label3.Caption = "本窗口将于" & ba & "秒钟后，自动关闭。"
ba = ba - 1
If ba = 0 Then
Form1.Hide
form2.Show
End If
End Sub
我帮你改了一下，开始的时候把timer 的enabled属性改为false。
然后你对照一下下面我该后的代码：
Option Explicit
Dim ba As Integer
Private Sub Form_Activate()
Label3.Caption = "本窗口将于10秒钟后，自动关闭。"
Timer1.Enabled = True ' 激发timer控件
Timer1.Interval = 1000
ba = 10
End Sub
Private Sub Timer1_Timer()
Label3.Caption = "本窗口将于" & ba & "秒钟后，自动关闭。"
ba = ba - 1
If ba = 0 Then
Form1.Hide
Form2.Show
unload me
End If
End Sub
希望对你有所帮助，期待被采纳。
Dim ba As Integer
Private Sub Form_Load()
Label3.Caption = "本窗口将于10秒钟后，自动关闭。"
Timer1.Interval = 1000
ba = 10
End Sub
Private Sub Timer1_Timer()
Label3.Caption = "本窗口将于" & ba & "秒钟后，自动关闭。"
ba = ba - 1
If ba = 0 Then
Timer1.Enabled=False
Unload Me
'unload me在内存中卸掉该窗体，下次Form1.show会重新运行'Form1_Load事件，即你所要求的。