！！！倒记时问题！！！

Question

写了一个自动执行任务的程序！当设置好的倒记时结束时，便自动执行预定任务！如果中间退出程序，当再次开启时继续倒记时（并非重新开始倒记时），请问这要如何实现呢？
    ！！！先谢了！！！

Answer 1

TextBox、Temer、CommandButton各一个
Private Sub Command1_Click()
Timer1.Interval = Text1.Text
End SubPrivate Sub Timer1_Timer()
Print "Hello!!!"
Timer1.Interval = 0
End Sub
这是前半部分。
而后半部分，退出、重起后继续倒记时，就不会做了！

Answer 2

'一个timer1,一个label1
Dim cs As IntegerPrivate Sub Form_Load()
cs = 0
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
On Error Resume Next
cs = cs + 1
Label1.Caption = "到计时：" & Str(6 - cs)
If cs = 6 Then
MsgBox "时间到！"
Unload Me
End IfEnd Sub

Answer 3

如果你要保存程序的运行状态（比如一个断点续传的位置），以便下次程序启动时接着当前位置继续运行的话，你可以把这个状态（比如一个变量的值）保存到磁盘文件中，不过更简单的是，保存到注册表中，使用SetSetting语句；程序下次启动时使用GetSetting语句读注册表中相应数据就行了。

Answer 4

在程序退出的时候记录当前的剩余时间啊，然后在程序启动的时候读出。正如楼上所说的，注册表最方便：SetSetting和GetSetting，具体用法在MSDN里查一下就有了。

Answer 5

很容易麻，你需要的就是保存一个标记和已经走过的时间~~~~
然后在程序启动时去读标记和时间而已。。
可以用timer控件去保存标记~~~

Answer 6

Unload里保存本次倒计时的剩下的时间到某个文件或注册表，
Load里读取上次保存的时间，并接着run

Answer 7

接着 jxgzay所写保存时用:
              dim filename as  String '文件名
              open filename for output as #1
              print #1,cs
              close #fn
   读数据时:
               dim filename as String '文件名
               open filename for input as #1
               dim thenum as Integer 
               line input #1,thenum
               cs=thenum
               close #fn
就能接着计时了。

Answer 8

两个都错了，close #fn
应为close #filename

Answer 9

接着 jxgzay所写保存时用:
              dim filename as  String '文件名
              open filename for output as #1
              print #1,cs
              close #filename
   读数据时:
               dim filename as String '文件名
               open filename for input as #1
               dim thenum as Integer 
               line input #1,thenum
               cs=thenum
               close #filename
就能接着计时了。--------------------------------
给filename值啊，filename="c:\systimer.dll"
应该不会错啊~

Answer 10

明白楼上的方法了！我再试试！谢谢！小的用GetSetting、SaveSetting也实现了，但只能放在
HKEY_CURRENT_USER\Software\VB and VBA Program Settings下面，
据说要放到别处需要其他API函数实现。请问注册表中的HKEY_CURRENT_USER\Software\VB and VBA Program Settings项 ，
是系统自带的还是安装Visual Basic后才有的？如果是自带，哪些版本的Windows有呀？

Answer 11

楼主的程序如果非正常退出，要在下次启动的时候继续，那也行啊，你可以在每次减少时间的时候（每秒）都往注册表里写值，这样都不会漏了。还有HKEY_CURRENT_USER\Software\VB and VBA Program Settings，这个项不管系统有没有，当你使用"SetSetting"函数的时候都会创建的。具体这个函数的用法请查阅MSDN！
这个是最方便的，没必要用INI文件。