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

#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！ 倒計時結(jié)束時隱藏 lt。

#39Timer1，Label1，Label2，Text1，cmdstar Dim lngTime As Long Private Sub cmdstar_ClickIf Not IsNumericText1Text Then MsgBox quot請輸入一個正整數(shù)quot， vbOKOnly， quot輸入quotExit Sub End If lngTime = ValText1Text * 600 Timer1Enabled = True Call Timer1_Timer End Sub Private S；flash運行有那么快嗎默認幀速每秒鐘12幀，你如果要顯示毫秒，理論上就要設幀速1000幀，才會每毫秒變化一次顯示的數(shù)值納秒你要把幀速調(diào)多少你的機子CPU有那么強悍么；可以使用handler，也可以通過services發(fā)送廣播，更新UI，這些好事操作都是在線程中進行的，你至少要sleep的數(shù)值設置成你所需要的就行，因為它的單位本身就是毫秒級；在窗體上加一個Label控件，一個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延時方法，只有第34是可能精準延時時間的1利用 ping 命令延時 2利用 for 命令延時 3利用 vbs 延遲函數(shù)，精確度毫秒，誤差 1000 毫秒內(nèi) 4僅用批處理命令實現(xiàn)任意時間延遲，精確度 10 毫秒，誤差 50 毫秒內(nèi) 下面是采用vbs 延遲函數(shù)的代碼echo off echo %time call。

var timeStr=days+quot天quot+hours+quot小時quot+minutes+quot分quot+secindes+quot秒quotsecindes應該是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)建一個Timer控件名為Timer1，鍵入如下代碼Private Sub Timer1_TimerTimer1Enabled = FalseMsgBox quot倒計時結(jié)束quot #39這里是倒計時結(jié)束后的處理代碼End SubPrivate Sub CountDownTimel As LongTimer1Interval = TimelTimer1Enabled = False Timer1Enabled = TrueEnd Sub調(diào)用方法是。

補充代碼#39新建工程，放置1個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；增加一個Timer 設置它的時間間隔為1000毫秒，時間間隔越小，高度變化越連續(xù) 在Timer的事件中 給進度條的高度賦值 a=Label1Caption H=AaA*h。