首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB新手問題!老鳥請進!该怎么解决

2012-01-24 
VB新手問題!老鳥請進!我想通過Timer和text做個倒計時的程序,到數三秒鐘,但這樣怎麼還是不行啊?請老鳥指定!

VB新手問題!老鳥請進!
我想通過Timer和text做個倒計時的程序,到數三秒鐘,但這樣怎麼還是不行啊?請老鳥指定!謝謝!
Private   Sub   Timer1_Timer()
nTime   =   Val(InputBox(3))
Timer1.Interval   =   3

If   (nTime   <   3)   Then
nTime   =   nTime   -   1
Label1.Caption   =   "請稍後... "   &   nTime   &   "秒 "
Else
MsgBox   ( "倒數完畢 ")
Unload   Form1
'停止計時器
Timer1.Interval   =   3
End   If
End   Sub

[解决办法]
Private Sub Form_Load()
nTime=3
Timer.Interval=1000
Timer.Enabled=True
end Sub

Private Sub Timer1_Timer()
if nTime=0 then
Timer1.Enabled=false
MsgBox ( "倒數完畢 ")
end if
Label1.Caption = "請稍後... " & nTime & "秒 "
nTime=nTime-1
End Sub

[解决办法]
第一:nTime应定义为全局变量
第二:Timer1.Interval =1000

[解决办法]
点管理给分

热点排行