做一个文本框 设置时间，绑定 long型变量m_tmp，做一个命令按钮，在命令按钮的按钮消息里映射，编写代码 UpdateDatatrueSetTimer0，m_tmp，NULL；itime ？ listitime = 1 1没执行一次时间差只减掉了1，这里是毫秒吧还是啥，反正不是1秒，不信你把 interval = setIntervalgo， 1000改为 interval = setIntervalgo， 1 就看出效果了，欢迎jiaru qun交流2177712 还有倒计时10月4号已经过期了改5号可看效果；添加了四个标签第一个倒数时间，第二个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！ 倒计时结束时隐藏 lt。

#39Timer1，Label1，Label2，Text1，cmdstar Dim lngTime As Long Private Sub cmdstar_ClickIf Not IsNumericText1Text Then MsgBox quot请输入一个正整数quot， vbOKOnly， quot输入quotExit Sub End If lngTime = ValText1Text * 600 Timer1Enabled = True Call Timer1_Timer End Sub Private S；flash运行有那么快吗默认帧速每秒钟12帧，你如果要显示毫秒，理论上就要设帧速1000帧，才会每毫秒变化一次显示的数值纳秒你要把帧速调多少你的机子CPU有那么强悍么；可以使用handler，也可以通过services发送广播，更新UI，这些好事操作都是在线程中进行的，你至少要sleep的数值设置成你所需要的就行，因为它的单位本身就是毫秒级；在窗体上加一个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 延迟函数，精确度毫秒，误差 1000 毫秒内 4仅用批处理命令实现任意时间延迟，精确度 10 毫秒，误差 50 毫秒内 下面是采用vbs 延迟函数的代码echo off echo %time call。

var timeStr=days+quot天quot+hours+quot小时quot+minutes+quot分quot+secindes+quot秒quotsecindes应该是seconds，我比较喜欢用Editplus测试js你可以试下，Ctrl+B直接调试，爽得很；hour = intDaoJishi3600DaoJishi = DaoJishi%3600minute = intDaoJishi60second = DaoJishi%60hour = hourlt10 ？quot0quot+hour hour添0成两位数 minute = minutelt10 ？quot0quot+；在Form内创建一个Timer控件名为Timer1，键入如下代码Private Sub Timer1_TimerTimer1Enabled = FalseMsgBox quot倒计时结束quot #39这里是倒计时结束后的处理代码End SubPrivate Sub CountDownTimel As LongTimer1Interval = TimelTimer1Enabled = False Timer1Enabled = TrueEnd Sub调用方法是。

补充代码#39新建工程，放置1个timer就行了 Dim n Private Sub Form_LoadTimer1Interval = 500 n = 100 End Sub Private Sub Timer1_TimerCls Print quot这是第quot n quot次！ 现在的速度是quot Timer1Interval quot毫秒！quotn = n 1 If n = 70 Then Timer1Interval = 100 If n；增加一个Timer 设置它的时间间隔为1000毫秒，时间间隔越小，高度变化越连续 在Timer的事件中 给进度条的高度赋值 a=Label1Caption H=AaA*h。