在VB中，怎样使一段代码执行完毕后再继续下一个过程，如加载文件等，请各位高手赐教，谢谢！

Question

我试过，不行的。我指的是比如：在RICHTEXTBOX中用LOADFILE加载文件，如何判断文件已经完全加载完毕，然后在执行下面的程序。

Answer 1

用do while循环判断,别忘了doevents

Answer 2

clear girl 你可以在過程結束時用msgbox函數提示信息.

Answer 3

还不是明白你的意思，你是不是想做多线程啊？a = 1
RichTextBox.LoadFile(...)后
后面的代码不能执行吗？
a = a + 1如果你想载入文件的同时还想做其他事情，可以用
Do While abcd=Ture
   DoEvents
Loop或者多线程。 

Answer 4

你可以把下面要执行的代码放在一个事件里嘛，这个事件就是只有你上一步操作完成之后才发生的。比如你要处理winsock控件接受的html文件，如果你在winsock.getdata myData语句之后马上处理myData,由于getdata函数还没有执行完毕，所以你得到的myData中并非完整的html文件，那么你可以在winsock的close消息里处理啊。

Answer 5

Lights的意思是等待过程的结束，而ClearGirl的意思是在处理某个事情时禁止APP处理其他事情
我也在想这个问题，所以明白CG 的意思，但我也不知道怎么解决，只好关注这个问题咯

Answer 6

那就让cpu一直在忙吧，比如做空循环，在循环中每次都检测要等待的过程有没有结束，如果结束
就继续处理，否则继续循环。呵呵，这样，如果你没有DoEvents语句的话，在等待过程中你会
以为机器死掉了的哦。

Answer 7

你可以用VB中的系统函数timer函数
在模块中添加下列代码：
Static Sub delayloop(delaytime)
Const secondsinday = 24& * 60& * 60&
loopfinish = Timer + delaytime
If loopfinish > secondsinday Then
    loopfinish = loopfinish - secondsinday
    Do While Timer < secondsinday
        Loop
End If
Do While Timer < loopfinish
Loop
End Sub然后在窗体代码中调用delayloop,例如如果你想在一个程序执行完后10秒进行另一个程序可以用  delayloop 10 即可。

Answer 8

可以通过判断Richtextbox中文本的长度与文件的长度比较,如果相等不就是做完了

Answer 9

cleargirl
你可以设置一个boolean变量，在第一段代码后给boolean变量付值，然后用if……then语句判断
例如：假如有另一个public sub showgetfile()存在
dim a as boolean
private sub form1_click()
a=true
do while a
'第一段代码
……………………
……………………
a=false
else
showgetfile
wend
End sub

Answer 10

sorry ,是用do……while循还来判断。