怎样实现在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＞"