怎样实现在VB窗体中有Html页面

　　


                   在您的代码中，您首先调用了WebBrowser1.Navigate "about:blank"，此时Webbrowser开始获取”about:blank”页，此时webbrowser并不等待这条命令的返回而直接运行下面的语句，当第一句返回以后，Webbrowser将再次变成blank,这就是为什么您的代码不起作用的原因。



　　您只需要将在执行第一句语句的以后通过判断WebBrowser1的Busy属性，如果为假则表示页面已经完全打开，然后再继续执行以下您自己的语句就可以了。注意您需要通过DoEvents语句让系统有时间执行打开页面的操作，请参考以下代码：



　　　WebBrowser1.Navigate "about:blank"



　　　　　Do While (WebBrowser1.Busy = True)



　　　　　DoEvents



　　　　　Loop


WebBrowser1.Document.open



　　　　　WebBrowser1.Document.writeln "＜HTML＞"



　　　　　WebBrowser1.Document.writeln "＜HEAD＞"



　　　　　WebBrowser1.Document.writeln "＜TITLE＞"



　　　　　WebBrowser1.Document.writeln "New Document"



　　　　　WebBrowser1.Document.writeln "＜/TITLE＞"



　　　　　WebBrowser1.Document.writeln "＜/HEAD＞"



　　　　　WebBrowser1.Document.writeln "＜body＞"



　　　　　WebBrowser1.Document.writeln "＜BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & "＞"



　　　　　WebBrowser1.Document.writeln "Hello"



　　　　　WebBrowser1.Document.writeln "＜/BODY＞"



　　　　　WebBrowser1.Document.writeln "＜/HTML＞"