VB6.0 timer 計時器 (急&15點)

💻 軟件台程式編寫及設計

Liang

2010-04-08 7:01 am

我想用vb6.0 既 timer 計時器,用textbox黎顯示秒數
之前上網睇過好多
話enabled = true 係攞黎啟動timer
但係play哥陣個textbox都唔郁既
我依家打左個大概簡陋的程式出黎
麻煩各位幫我睇下有咩問題,點樣佢先會開始計時
thx!

Private_sub command1_click()
Text1.text = 5
timer1.enabled = true
timer1.interval = 750
End Sub

更新1:

Sorry呀,我冇講清楚, 我指既計時器係倒數計時- - 非常抱歉可以再補充說明一下嗎?

更新2:

即係到數到0就出msgbox~ 因為如果textbox-1會減到負數多謝賜教!

回答 (2)

[匿名]

2010-04-08 8:09 am

✔ 最佳答案

Double click個timer,
會出
Private Sub Timer1_Timer()
End Sub

o係中間加
Text1.Text = Text1.Text + 1

即
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub

再play,禁command1 button,
就會見個text每0.75秒加一

2010-04-08 22:07:40 補充：
Private Sub Timer1_Timer()
Text1.Text = Text1.Text - 1
if val(Text1.Text)<=0 then
msgbox("玩完啦")
timer1.enabled = false
end if
End Sub

👍 0 👎 0

garlic2010

2010-04-08 8:08 am

你都冇 Timer event，Textbox 點會郁﹖加個 Timer event 就掂。

Private Sub Timer1_Timer()
Text1.Text = Second(Now())
End Sub

👍 0 👎 0

收錄日期: 2021-04-25 20:34:52
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20100407000051KK02086

檢視 Wayback Machine 備份