以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于延时设置的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29433)

--  作者:西瓜住持
--  发布时间:2013/3/6 17:16:00
--  [求助]关于延时设置的问题

比如 我执行了下面的代码。

 

Dim i As Integer
For i = 1 To 300 
 Tables("表B").Rows(i)("第一列") = "123"
System.Threading.Thread.Sleep(100) 
Next
 
他会在循环结束后才显示内容。
是否可以循环的过程中实时显示呢。

--  作者:西瓜住持
--  发布时间:2013/3/6 17:18:00
--  

Application.DoEvents()

 

自己搞出来了


--  作者:狐狸爸爸
--  发布时间:2013/3/6 17:19:00
--  

Dim i As Integer
For i = 1 To 300 
   Tables("表B").Rows(i)("第一列") = "123"
    Application.DoEvents()
   System.Threading.Thread.Sleep(100) 
Next