教育资源为主的文档平台

当前位置: 查字典文档网> 所有文档分类> 论文> 其他论文> 利用VB实现对IE的调用与控制

利用VB实现对IE的调用与控制

上传者:网友
|
翻新时间:2013-12-14

利用VB实现对IE的调用与控制

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

一、 编程准备

VB通过OLE自动化技术创建和控制Internet Explorer对象的实例,因此,在新建一个工程后需要加入Microsoft Internet 控制的参考,方法是打开Visual Basic 的Project下拉菜单中的Reference…选项,单击Browse…按钮,在Windows的system目录下找到SHDOCVW.DLL并选中它,它是Internet Explorer的类库。

二、 实现方法

在窗体form1中添加表1所示的控件。 控件类型 控件名称 控件内容

LabelLable1 地址:

TextText1 (空)

Command cmdView 浏览

CommandcmdForward 向前

Command cmdBackward 向后

Command cmdCloseView 关闭浏览窗口

Command cmdExit 退出

对上述窗体添加如下代码即可实现对Internet Explorer的调用与控制,

Dim WithEvents ieView As InternetExplorer

'在通用模块中定义Internet Explorer对象

Private Sub Form_Load()

cmdForward.Visible = False

cmdBackward.Visible = False

cmdCloseView.Visible = False

'窗体调入时隐藏Internet Explorer控制按钮

End Sub

Private Sub cmdView_Click()

Dim txtAddress As String

On Error Resume Next '设置错误陷阱

Set ieView = GetObject("", "InternetExplorer.Application")

ieView.Visible = True

'创建Internet Explorer对象的一个实例,并设为可见

txtAddress = Trim(Text1.Text)

ieView.Navigate txtAddress, navNoReadFromCache

'按text1控件的内容进行浏览

cmdView.Enabled = False

cmdExit.Enabled = False

cmdForward.Visible = True

cmdBackward.Visible = True

cmdCloseView.Visible = True

'使浏览、退出命令钮无效,使IE控制命令钮可见

下一页

下载文档

版权声明:此文档由查字典文档网用户提供,如用于商业用途请与作者联系,查字典文档网保持最终解释权!

网友最新关注

不再是孩子了
常怀感恩之心
祖国颂
蚂蚁和玻璃杯
完整生命的三个层面
故事还在继续
我的好“老师”
對不起,一直忘了說我愛你
爱需要理解
孤单可以被选择
孤影
放手也是一种爱
胜似亲人
怎么能忘记
木头
地方高校图书馆的地方文献资源建设
探讨复合图书馆对馆员的素质要求
地方高校图书馆服务区域文化建设的思考
浅谈高校图书馆人性化服务的内涵及实施
高校图书馆学科化服务模式探究
浅谈博物馆教育职能的有效发挥
高中图书室在学校教学中的地位和作用
提高图书馆情报咨询功能的有效途径分析
论高校图书馆服务创新
数字时代基层图书馆发展的定位及方向
图书馆信息资源建设的变革与创新
探讨博物馆内部安全管理
“示范区”建设中公共图书馆少儿活动模式创新研究
探析地方公共图书馆管理服务创新
数字化背景下高校声像档案的管理与利用探析
《失踪的森林王国》教案之一
《泊船瓜洲》教案之二
《泊船瓜洲》课堂教学实录之二
《植物之间的“爱”和“恨”》探究感悟
《失踪的森林王国》教案之二
《古诗两首》作者杨万里、王安石简介
《泊船瓜洲》课堂教学实录之三
《泊船瓜洲》教学案例及感悟
《泊船瓜洲》教案之一
《失踪的森林王国》教案之四
《古诗两首》探究感悟
《泊船瓜洲》课堂教学实录之一
《植物之间的“爱”和“恨”》教案之一
《失踪的森林王国》课文原文
《失踪的森林王国》教案之三