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

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 文章首页 >> 编程技术 >> VB & VB.NET教程 >> 怎样实现在VB窗体中有Html页面

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

添加时间: 2006-2-12 9:05:26 作者: VB教程阅读次数:111 来源: http://www.d9soft.com

　　在您的代码中，您首先调用了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＞"

上下文章:

上一篇文章: 用VB实现“木马”式隐形运行程序下一篇文章: 用VB编程实现图像的熠熠生辉效果

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部