为什么我设置的时间延时不起作用？

Question

代码如下：
是不是DocumentComplete不支持延时呢？Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim j As Integer
Dim dest() As String
For j = 1 To ii
    Label5.Caption = "当前第" & j & "个"
       a = List1.List(j)
       dest = Split(a, "----")
       zh = dest(0)
       mm = dest(1)
       Text1 = zh
       Text2 = mm
       denglu  '子过程
     Sleep (2000)
  For k = 1 To 3
     Sleep (2000)
      choujiang   '子过程
     Sleep (2000)
          dianji  '子过程
     Sleep (2000)
           link   '子过程
           jine   '子过程
        MsgBox ("成功！")
  Next k
Next j
End Sub
注：每个子过程都会指向另一个网页我想做的就是网页加载完成后然后按顺序执行那几个子过程，因为每个子过程都是要求前一步执行后网页加载完成再执行的，所以我设置了SLEEP延时，为的是等待指定网页能加载完成，可是我运行之后发现却不是我想象这样。。而是好像瞬间执行完了所有语句。。直接MSGBOX弹出“成功”而webbrowser里的页面还是首页。晕。别的子过程都没按顺序执行呀。。有没有能判定网页加载完成的语句嘛？
哪位能帮帮我吧。。

Answer 1

我用TIMER试了。。还是一样不行。。
是否DocumentComplete不支持延时？
那我该怎么做呢。。
我想要在当前页面加载完成。。然后点击上面的按钮跳转到下个页面
郁闷呀

Answer 2

哦哦，谢谢楼上朋友的解释
可具体要怎么做呢？
我刚接触WEB。。学校的VB课本都没上过不是很了解。。
请你能具体说下吗
谢谢

Answer 3

不知道你的web项目是否可以改动，你可以在webform里输出一个值，每个值代表应该处理不同的过程，然后通过htmldocument来分析，然后进行相应的处理

Answer 4

你也可以在你的vb项目里添加一个计数器来记录你执行的步骤，在DocumentComplete的时候判断具体应该执行那个过程，DocumentComplete是页面每次加载完成的时候触发