教育资源为主的文档平台

当前位置: 查字典文档网> 所有文档分类> 论文> 其他论文> 利用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控制命令钮可见

下一页

下载文档

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

网友最新关注

小狗豆豆
“地黄虾”打架
我胜利了
她们的天空
卖报纸
电脑保卫战
美丽的冬天
五彩课堂
再见,再见
落入秋天
回到过去
魔力先锋
小猫咪家族遇险记
最后一只北极熊
宽以待人
新形势下构建会计诚信保障体系初探
浅析农村财务会计监督体系的建设
小议会计透明度的影响因素及治理措施
新会计制度下财务管理模式探讨
基于建筑产业中营业税改增值税的相关问题探析
内部控制视角下行政事业单位资产管理机制研究
如何做好企业财务顾问
浅谈企业财务管理风险与控制
电力企业精细化财务管理应采取的策略
合并报表抵消业务之我见(二)
地勘企业的会计风险及防控
浅谈企业固定资产管理存在的问题及对策
外贸会计实务的特点与操作规范探析
如何加强销售合同管理中的财务监督职能
浅析医院财务制度支出管理与成本管理相结合的措施分析
《松坊溪的冬天》第一课时教学设计
《庐山云雾》第二课时教学设计
《三顾茅庐》第一课时教学设计
1《长江之歌》
2《聂将军和日本小姑娘》
《庐山云雾》第二课时教学设计
《松坊溪的冬天》教学设计
《古诗三首》教学设计
《三顾茅庐》教学设计
《三顾茅庐》让知识内外沟通
《劳动的开端》教学设计
17《夹竹桃》
《劳动的开端》教学设计
《庐山云雾》第二课时教学设计
《劳动的开端》教学设计