翻新时间: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控制命令钮可见
下一页
下载文档
网友最新关注
- 观察蜗牛
- 美丽的秋天
- 童心看中国改革三十年
- 蟑螂舰队
- 美丽的学校
- 小摄影师后续
- 家乡的变化
- 我爱百日红
- 我的好朋友
- 观察小鸡
- 我的小制作
- 我的新校服
- 下大雨
- 中秋之夜
- 严格的妈妈
- 08年入党转正申请书
- 入党转正书
- 入党转正程序
- 入党转正申请
- 最新入党转正申请书
- 入党转正报告
- 2008年入党转正申请
- 军人入党转正申请书
- 预备党员转正申请书写法(1)
- 最新党员转正申请书
- 大学生入党转正申请书
- 入党转正
- 入党转正申请书格式
- 2011年最新入党志愿书
- 入党转正申请书范文
- 官僚制再探析:价值与弊病
- 张闻天政治民主思想述论
- 城际轨道交通行车安全保障体系研究
- 基于层次分析法的城市轨道交通线路方案选择
- 对发展我国城市轨道交通若干问题的思考
- 北京城市铁路的变形监测
- 城市轨道交通高架轨道结构的实施方法与工艺探讨
- 轨道交通系统杂散电流及其腐蚀控制技术初探
- 试论中国传统政治文明的制度性精华
- 权利?专制王权?法与有限政府
- 多变量模糊控制在城市轨道列车牵引中的应用
- 城市轨道交通ATP 仿真系统的初步研究
- 数字视频传输技术在城市轨道交通中的应用
- 新安全观:在现代安全观的反思中探索
- 我国地方政府绩效评估体系创新探讨
- 《司马光》教学设计4
- 《四个太阳》教学设计6
- 《司马光》教学设计1
- 《四个太阳》教学设计5
- 《司马光》教学设计2
- 《司马光》教学设计3
- 《四个太阳》教学设计4
- 《乌鸦喝水》教学设计1
- 《乌鸦喝水》教学设计4
- 《乌鸦喝水》教学设计5
- 《乌鸦喝水》教学设计2
- 《称象》教学设计2
- 《吃水不忘挖井人》教学设计4
- 《称象》教学设计3
- 《乌鸦喝水》教学设计3