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