vb6 为什么这段代码有时候就能使WebBrowser里面的网页正常显示，有时候（当然极少数时候）不能正常显示

vb6 为什么这段代码有时候就能使WebBrowser里面的网页正常显示，有时候（当然极少数时候）不能正常显示Dim d As HTMLDocument
    Dim htmlstr As String
    f_Main.WebBrowser1.Navigate ("about:blank")
    htmlstr = "<p  style='ine-height: 160%; word-spacing: 5; font-size:18pt'_ align='left'>    "
    Dim flag As Boolean
    flag = False
    Set d = f_Main.WebBrowser1.Document
    Do Until flag
       DoEvents
       If d Is Nothing Then
           'Resume
       Else
          flag = True
          htmlstr = htmlstr + str + "</p>"
          d.body.innerHTML = htmlstr
          d.body.Style.background = "url(" & App.Path & "\bh_image.jpg)"
       End If
     Loop

解决方案 »

  1.   

    VB6我觉得一直不稳定，是不是我用的不是正版的？
    曾用WEBBROWSER打开单位内部的一个网页，元素很少，页面很小的，用IE打开速度很正常，就是有时候卡一下二三秒就行了，用WEBBROWSER就不行了，有时很正常，有时就得十来秒，非常不稳定（单位内部网络中就这一个用WEBBROWSER打开不稳定，其余的倒正常），它打开不稳定倒也罢了，写的代码也运行不稳定（代码很简单，就是填二个空，然后点个图片按钮，再循环，会VB的都会这个），我写的是循环操作，有十来个循环，我都不知道它那一个循环是正常的！
      

  2.   

    正常的显示为底图加文字,不正常时就是白屏,没有出错信息,一步一步单调重来不出错,怀疑有时候运行太快就不能正常显示了!运行二三十次可能出一次白屏,源代码原先用的ATX45,后来让我换成WEBBROWSER了,没想到这么不稳定!
      

  3.   

    白屏可以看到源码 的 源码 是about:blank 吗
      

  4.   

    右键打开看源代码是这个<html></html>