使用sleep带来的界面刷新问题

Question

在一个网络通讯的例子中,服务器不断向客户端发送数据,时间间隔为1秒,
服务器大致执行代码如下
  1: send_data()  '发送数据
  2: refresh()    '刷新显示所发送的数据的richtextbox控件
  3: sleep(1000)  '停顿一秒在执行过程中,发现程序可以正确发送数据,但是界面不能刷新,界面显示没有响应! 但是如果是debug模式,界面可以得到正确刷新.
请教,这个问题是不是由sleep导致的,应该怎么解决?

Answer 1

send_data()  '发送数据
refresh()    '刷新显示所发送的数据的richtextbox控件
DoEvents
sleep(1000)  '停顿一秒
这样试试

Answer 2

多谢多谢,解决了界面刷新问题.
不过在sleep的时间内界面还是没有响应.
看来需要用线程解决!

Answer 3

不用多线程的话,在sleep的时间内界面有响应就不正常了!