VB 6.0每隔几秒刷新标签的问题

[testpwd]

我在VB 6.0中写了一个简单的程序，界面上就一个按钮控件和一个标签控件（Label）

然后在按钮的点击事件中写如下代码，就是每隔2秒，就在Label上显示当前秒数：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Dim a As Integer

a = 0

Do Until a > 10

Sleep 2000

Label1.Caption = "ok" & a

a = a + 1

Loop

End Sub

结果执行这个exe的时候界面总是像死掉一样，而单步调试却一点问题也没有，请教各位大侠！

[guyehanxinlei]

在循环中必要的地方加DoEvents

[testpwd]

guyehanxinlei大侠能否说仔细点？我对VB不太熟悉。

[testpwd]

自己顶一下。

[波导终结者]

每隔二秒，你应该用Timer控件做，哪有人用循环和sleep搞死的

[blues_zhao_yang]

Sleep 2000
会使当前线程挂起，你这个代码在主线程中，而不是在子线程中，所以会导致界面卡死

解决方法:
一、创建子线程，将代码放入子线程中
二、不用Sleep函数，改用Timer来实现定时效果

[水猿兵团五哥]

sleep 是什么？ 英文是睡觉

你说你都要人家睡觉了，你还想做什么？

[大明湖畔_帅锅]

还是该用Timer控件吧.

[testpwd]

sleep 2000 的确会使当前线程（也就是主线程）挂起，但是2秒钟过后，线程不是就恢复了么？再刷新界面

有什么不对呢？

[阿双2009]

参考
http://bbs.pfan.cn/post-138969.html

[c1c2c33]

用sleep就是不对了。。
这样要是界面不卡才怪呢。。

[yanlongwuhui]

[Quote=引用 2 楼 testpwd 的回复:]
guyehanxinlei大侠能否说仔细点？我对VB不太熟悉。
[/Quote]
在LOOP前面加上一句：DoEvents

[liye9801]

Dim a As Integer
a = 0
Do Until a > 10

Sleep 2000

Label1.Caption = "ok" & a
a = a + 1
Loop

看看你的代码， 第次执行 Sleep 2000 主进程等待两秒再执行，而下面的代码，
Label1.Caption = "ok" & a
a = a + 1
仅用很少时间执行结束，然后又 Sleep 了。

要知道 Label1.Caption = "ok" & a 并不是直接修改了程序界面，而发送一个消息由主程序完成的。
你可以这样理解 Label1.Caption = "ok" & a 是你告诉主程序把改界面改成这样，但程序不会等彻底改完再向下执行，大多情况下在主程序还没有执行完界面刷新时，又Sleep了。
导致程序假死。。。