在VB中实现对IE的控制

2022-10-25

1 编程准备

VB通过OLE自动化技术 (Object Linking and Embedding, 对象链接与嵌入, 简称OLE, 技术是为了改进联结文档的设计, 也就是在一个文件或一个程序中能够包含多种不同数据格式的数据内容而产生的) 创建和控制Internet Explorer对象的实例, 因此, 在新建一个工程后需要加入Microsoft Internet控制的参考, 方法是打开Visual Basic的“工程”下拉菜单中的“引用”选项, 单击“浏览”按钮, 在Windows的system (windows中是system32) 目录下找到SHDOCVW.DLL并选中它, 它是Internet Explorer的类库。

2 界面设置

在窗体form1中添加调用和控制Internet Explorer的控件如表1所示。

3 具体实现

对上述窗体添加以下代码即可实现对Internet Explorer的调用与控制, 在通用模块中定义InternetExplorer对象Dim WithEvents ieView As InternetExplorer WithEvents说明ieView是一个用来响应由ActiveX对象触发的事件的对象变量。

程序启动后“向前”、“向后”、“关闭浏览窗口”等命令钮不可见, 在文本框内输入相应的URL地址, 单击“浏览”按钮即可调入Internet Explorer进行浏览, 此时, “向前”、“向后”、“关闭浏览窗口”命令钮转为可见, 从而实现对浏览器的控制, 单击“关闭浏览窗口”命令按钮可关闭当前打开的Internet Explorer窗口, 此时窗口又还原为初始模样, 可再次输入新的地址进行浏览。

4 结语

在程序的运行中需要注意的几点问题说明如下:

(1) 必须在通用模块中定义Internet Explorer对象, 并且将其定义为WithEvents类型以便响应由Active X组件触发的事件。使用WithEvents, 可以声明任意个所需的单变量, 但不能使用WithEvents创建数组。New和WithEvents不能一起使用。

(2) 浏览网页时需用下述语句创建Internet Explorer对象实例, 并设为可见:

退出时须消除该对象以释放内存, 即

否则会因大量占用系统资源导致系统不稳定。

另外, I E对象的其他方法:

(1) GoHome:装入IE设定的起始页。

用法:object.GoHome。

(2) Navigate:装入页面。

用法:object.Navigate url。

(3) GoBack:返回上一个页面。

用法:object.GoBack。

(4) GoForward:进入下一个页面。

用法:object.GoForward。

(5) Stop:停止载入页面。

用法:object.Stop。

(3) 调用和控制Internet Explorer过程中会产生各种错误, 如在浏览器历史记录为空时, 执行“向前”、“向后”操作就会产生OLE自动化错误, 必须在“浏览”、“向前”、“向后”、“关闭浏览窗口”等命令按钮相应程序模块开始处加入错误捕获语句:O n Error Resume Next以检测和处理类似错误。

摘要：随着网络应用的不断扩展, 采用HTML语言编写的文档越来越多, 如何在VB程序中实现对HTML文档的浏览是一个需要解决的问题。本文以一个实例说明了在VB中调用和控制Internet Explorer的方法。

关键词：VB,HTML文档,Internet,Explorer对象