vb的一个简单的问题.

来源：百度知道 编辑：UC知道 时间：2024/05/27 22:12:22
点击按钮以后,倒计时10秒后关闭本程序.timer怎么写啊谢谢!我是超级菜鸟1!
那如果让倒计时呢??您的这个是正数的啊!谢谢!

Private i As Integer

Private Sub Command1_Click()
i = 10
Timer1.Interval = 1000 '每秒执行一次timer事件
End Sub

Private Sub Timer1_Timer()
i = i - 1
Command1.Caption = i
If i = 0 Then End
End Sub

建立一个按钮和timer控件，然后把代码复制运行就可以了

稍微修改了一下，这样就显示倒计时了

1> 先加入一个timer控件，设定他的enable=false
name就默认为timer1吧。
2> 编写他的timer事件代码：unload me

3> 加入一个按钮，进入他的Click事件代码，
timer1.Intraval = 10*1000
timer1.enable = true
4> 好了，run一下看看

timer1控件一个
Comaand1控件一个

Private Sub Command1_Click()
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Unload Me
End
End Sub