翻新时间：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控制命令钮可见
下一页
下载文档
网友最新关注
- 一件快乐的事
- 我们的操场
- 我的成长烦恼
- 春天来了
- 语文课
- 游邙山
- 日记
- 春天美
- 乐观才有希望
- 小鸟
- 小燕子和啄木鸟
- 美丽的春天
- 我的新老师
- 下雨了
- 爸爸的胡子
- 药监局目标管理实施细则
- 学校(大学)预算管理操作规程
- 学校工作考核评估办法
- 有限责任公司公司治理准则
- 职工宿舍管理制度
- 学校(大学)预算管理办法
- 党建工作控制程序
- 县供电局合同管理办法
- 信用社各管理部门职责
- 公司考勤管理制度
- 办公室人员百分考核制度
- 基础科学部考试管理实施细则
- 公司人力资源管理制度
- 村民自治章程
- 药监局规范化服务细则
- 加强企业档案信息化建设
- 非物质文化遗产保护与档案特藏
- 无线通讯技术在档案馆库房温湿度监测中的展望
- 私营企业档案管理
- 浅析规范企业档案管理来促进企业持续发展
- 浅谈县级单位档案接收进馆工作中应注意的几个问题
- 网络信息环境下的档案编研选题
- 推动当前电子文件归档工作的几点建议
- 浅析学生电子档案系统的建设
- 三峡民间美术档案信息资源共享管窥
- 改革机关档案管理,推动电子政务发展
- 征集档案的整理工作初探
- 行政执法档案管理初探
- 谈档案馆如何参与非物质文化遗产的保护
- 影响医德档案管理因素分析
- 《詹天佑》教学设计
- 《两只小狮子》阅读教学设计
- 《给予是快乐的》教学设计
- 《一夜的工作》说课设计
- 《鸟的天堂》教学设计
- 《比尾巴》教学设计
- 《画》教学设计
- 《草船借箭》的两种教法
- 《桂林山水》教学实录
- 《草原》教学设计
- 《匆匆》教学设计
- 《詹天佑》课堂教学片段实录和点评
- 《卖火柴的小女孩》的创新教案
- 《詹天佑》第二课时教学设计
- 《静夜思》教学谈