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

推荐文章：电眼美女林熙蕾火辣激情壁纸　　少儿止步 性感壁纸欣赏