用定时器刷新窗口

Question

在一个循环中，用timer1来延时，并在每个循环结束时，把循环的运行结果，在label1中刷新显示。循环的次数是不定，使用command2的click事件来结束。达人帮忙。

Answer 1

Private Sub Timer1_Timer()
  '....
  Label1.Caption = "结果信息"
End Sub
Private Sub Command2_Click()
   Timer1.Enabled = True
End Sub

Answer 2

Private Sub Timer1_Timer()
 do while i=100  
  i=i+1 
 loop
'....
if i=100 then  
Label1.Caption = "结果信息"
i=1
end if
End Sub
Private Sub Command2_Click()
   Timer1.Enabled =false
End Sub

Answer 3

楼主的问题没有说清楚：用command来结束什么？是结束timer控件，则三楼的正确；如果是结束循环，则可能是二楼的正确。况且Timer来延时，延什么时？又是在一个循环中用Timer来延时？

Answer 4

我是为了让运环的结果在label1中显示出来，又要留有时间间隔，为了让循环的节奏不能太快，在每运行一次得到结果后，用定时器来延迟。每次循环后，label1显示出每次循环中得到的结果。