做一個(gè)文本框 設(shè)置時(shí)間，綁定 long型變量m_tmp，做一個(gè)命令按鈕，在命令按鈕的按鈕消息里映射，編寫代碼 UpdateDatatrueSetTimer0，m_tmp，NULL；itime ？ listitime = 1 1沒執(zhí)行一次時(shí)間差只減掉了1，這里是毫秒吧還是啥，反正不是1秒，不信你把 interval = setIntervalgo， 1000改為 interval = setIntervalgo， 1 就看出效果了，歡迎jiaru qun交流2177712 還有倒計(jì)時(shí)10月4號已經(jīng)過期了改5號可看效果；添加了四個(gè)標(biāo)簽第一個(gè)倒數(shù)時(shí)間，第二個(gè)20，第三個(gè)，第四個(gè)00添加了一個(gè)timer控件 timer控件的Enabled屬性設(shè)置為True 并且Interval屬性設(shè)置為1000雙擊timer控件 進(jìn)入它的 Tick事件 private void timer1_Tickobject sender， EventArgs e if ConvertToInt16L_；include quottimehquotvoid main int n，m，settime=10n=time0printfquot請輸入倒計(jì)時(shí)時(shí)間秒quotscanfquot%dquot，settimewhile settime！=0 if n！=time0如果時(shí)間過了1秒 settime計(jì)時(shí)器減1 printfquot%d\nquot，settime輸入目前的倒計(jì)時(shí) n=time0更新當(dāng)前。

#39，#39interval#39 1000，#39timeRunCls#39 #39kscountdownrun#39，#39timeUnitCls#39 #39d#39 #39ksd#39，#39h#39 #39ksh#39，#39m#39 #39ksm#39，#39s#39 #39kss#39，#39i#39 #39ksi#39，#39minDigit#39 1，#39timeEndCls#39 #39kscountdownend#39quot lt！ 倒計(jì)時(shí)結(jié)束時(shí)隱藏 lt。

#39Timer1，Label1，Label2，Text1，cmdstar Dim lngTime As Long Private Sub cmdstar_ClickIf Not IsNumericText1Text Then MsgBox quot請輸入一個(gè)正整數(shù)quot， vbOKOnly， quot輸入quotExit Sub End If lngTime = ValText1Text * 600 Timer1Enabled = True Call Timer1_Timer End Sub Private S；flash運(yùn)行有那么快嗎默認(rèn)幀速每秒鐘12幀，你如果要顯示毫秒，理論上就要設(shè)幀速1000幀，才會每毫秒變化一次顯示的數(shù)值納秒你要把幀速調(diào)多少你的機(jī)子CPU有那么強(qiáng)悍么；可以使用handler，也可以通過services發(fā)送廣播，更新UI，這些好事操作都是在線程中進(jìn)行的，你至少要sleep的數(shù)值設(shè)置成你所需要的就行，因?yàn)樗膯挝槐旧砭褪呛撩爰?；在窗體上加一個(gè)Label控件，一個(gè)Timer控件，然后添加如下代碼即可Private Declare Sub GetSystemTime Lib quotkernel32quot lpSystemTime As SYSTEMTIMEPrivate Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer；批處理中有如下4延時(shí)方法，只有第34是可能精準(zhǔn)延時(shí)時(shí)間的1利用 ping 命令延時(shí) 2利用 for 命令延時(shí) 3利用 vbs 延遲函數(shù)，精確度毫秒，誤差 1000 毫秒內(nèi) 4僅用批處理命令實(shí)現(xiàn)任意時(shí)間延遲，精確度 10 毫秒，誤差 50 毫秒內(nèi) 下面是采用vbs 延遲函數(shù)的代碼echo off echo %time call。

var timeStr=days+quot天quot+hours+quot小時(shí)quot+minutes+quot分quot+secindes+quot秒quotsecindes應(yīng)該是seconds，我比較喜歡用Editplus測試js你可以試下，Ctrl+B直接調(diào)試，爽得很；hour = intDaoJishi3600DaoJishi = DaoJishi%3600minute = intDaoJishi60second = DaoJishi%60hour = hourlt10 ？quot0quot+hour hour添0成兩位數(shù) minute = minutelt10 ？quot0quot+；在Form內(nèi)創(chuàng)建一個(gè)Timer控件名為Timer1，鍵入如下代碼Private Sub Timer1_TimerTimer1Enabled = FalseMsgBox quot倒計(jì)時(shí)結(jié)束quot #39這里是倒計(jì)時(shí)結(jié)束后的處理代碼End SubPrivate Sub CountDownTimel As LongTimer1Interval = TimelTimer1Enabled = False Timer1Enabled = TrueEnd Sub調(diào)用方法是。

補(bǔ)充代碼#39新建工程，放置1個(gè)timer就行了 Dim n Private Sub Form_LoadTimer1Interval = 500 n = 100 End Sub Private Sub Timer1_TimerCls Print quot這是第quot n quot次！ 現(xiàn)在的速度是quot Timer1Interval quot毫秒！quotn = n 1 If n = 70 Then Timer1Interval = 100 If n；增加一個(gè)Timer 設(shè)置它的時(shí)間間隔為1000毫秒，時(shí)間間隔越小，高度變化越連續(xù) 在Timer的事件中 給進(jìn)度條的高度賦值 a=Label1Caption H=AaA*h。