vb程序中，需要程序停止1S钟，想用TIMER控件，怎么用？谢谢

Question

vb程序中，需要程序停止1S钟，想用TIMER控件，怎么用？就是用call timer1_time函数，然后在
private sub timer1_time()
 
end sub
中间应该写什么？
timer1控件属性设置：
inteval 1000
enabled false
谢谢各位了。

Answer 1

设置Timer的InterVal属性为1000，即一秒种执行一次，然后设置Enable属性为False '在单元的公共部分声明 
Public tStart as Date '在程序开始的时候（FormCreate或按钮事件的时候）用 
tStart = Now'记录开始时间 
Timer1.Enable = True'开始执行时间检查 '设置Timer的事件如下 
Private Sub Timer1_Timer() 
If DateDiff("s", tStart, Now) >= 1 Then 
Timer1.Enabled = False 
'执行你的操作 
... 
End If 
End Sub

Answer 2

timer控件不是用来干这个的
timer可以实现1S以后执行某些语句，但不能实现程序暂停执行1S
试试API函数Sleep吧

Answer 3

是啊，用sleep(1000) 最好，api

Answer 4

暂停，可以用 Sleep API 来做

Answer 5

Private Sub Timer1_Timer()
  Timer1.Enabled = False
End SubTimer1.Interval = 1000
Timer1.Enabled = True
Do Until Timer1.Enabled = False
  DoEvents
Loop
＇继续执行'我也不赞成使用ＴＩＭＥＲ停止程序1S钟，如无必要建议使用ＳＬＥＥＰ，特别是在串中数据读取，ＷＩＮＳＯＣＫ数据读取中.

Answer 6

用sleep(1000)的话，不能满足我的要求
现在要解决的问题是:
在sstab控件中，有4个tab
现在要求点击一个按钮执行以下操作
1.tab从0到3（4个）依次显示
2.每显示一个tab通过其它函数进行截取当前窗口
3.不停止1S的话，程序太快，TAB显示来不及出来就已经被截下来了
用 sleep的话，
执行sstab1.tab=0之后，显示的tab还没有完全转换过来，就已经SLEEP了。
不知道我有没有说清楚。

Answer 7

timer1控件属性设置：
inteval 0
for a=0 to 3
  显示一个TAB(a)的代码
  timer1.inteval=1000  
next aprivate sub timer1_time()
  截取窗口的代码
  timer1.inteval=0  
end sub

Answer 8

上面的那个不对
试试下面的这个:timer1控件属性设置：
inteval 0dim a as string   private sub command1_click()
  a=0
  显示第一个窗口(0)
  timer1.inteval=1000  
end sub
private sub timer1_time()
  截取窗口的代码
  显示下一个窗口 (a+1) 代码
  a=a+1
  if a>3 then  timer1.inteval=0
end sub