说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB利用IE控件设计简易浏览器

HTML文档下载 WORD文档下载 PDF文档下载
VB利用IE控件设计简易浏览器
1999年第81、85两期的《电脑工作室》分别刊登了用C++ Builder和Visual C++开发简易浏览器两篇文章,给用户开发自己的简易浏览器提供了很好的方法。但大多数用户对这两种语言接触比较少,而Visual Basic用得比较多。下面我向大家介绍一种用VB6.0中的Microsoft Internet Controls控件制作简易浏览器的方法,供同行们参考。

  Internet Explorer控件

  如果机器中安装了IE3.0及其以上版本,在VB的控件列表窗口中就会有一个名为Microsoft Internet Controls的控件,我们可以利用该控件来制作简易浏览器。

  1.该控件有以下几个重要的方法:

  GoHome :装入 Internet Explorer设定的起始页。

  用法: object.GoHome

  Navigate : 装入页面。

  用法: object.Navigate url,其中url为URL地址,如“http:\\www.microsoft.com”

  GoBack : 返回上一个页面。

  用法: object.GoBack

  GoForward:进入下一个页面。

  用法: object.GoForward

  Refresh:刷新页面。

  用法:object.Refresh

  Stop : 停止载入页面。

  用法: object.Stop

  GoSearch:搜索页面。

  用法:object.GoSearch

  2该控件有以下重要事件:

  BeforeNavigate Event: 在每次装入页面前调用,声明如下:

  Private Sub object_BeforeNavigate(ByVal URL As String,ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)

  其中URL参数为将要装入的页面地址。

   StatusTextChang Event: 每次浏览器的操作状态改变时调用,声明如下:

  Private Sub WebBrowser1—StatusTextChange(ByVal Text As String)

  其中Text为浏览器的操作状态。

  DownloadComplete Event:页面下载结束后调用,声明如下:

  Private Sub WebBrowser1—DownloadComplete()

  NavigateComplete Event:登录结束后调用,声明如下:

  Private Sub WebBrowser1—NavigateComplete(ByVal pDisp As Object, URL As Variant)

  用该控件制作浏览器的方法

  下面介绍如何通过 Internet Explorer控件编程实现对WWW的访问。

  1.首先加载“Microsoft Internet Control”和“Microsoft Windows Common Controls 6.0(SP3)”。然后新建一表单Form1,在Form1中添加Microsoft Internet Control控件显示页面 WebBrowser1。

  2.在Form1中添加一个ToolBar控件ToolBar1和一个ImageList控件ImageList1,以实现对浏览器的操作。

  3. 在Form1中添加一个ComboBox控件Combo1,用来输入页面地址。

  4.在Form1中添加Label控件Label1,用来显示当前浏览器操作状态。

  5.在Form1中添加Label控件Label2,其Caption属性为“地址:”放在ComboBox 控件之前。

  控件事件代码

  Private Sub Form—Load()  

  ′程序装入后进入IE设定的起始页

   On Error Resume Next

   Me.Show

   ToolBar1.Refresh

   Form—Resize

   WebBrowser1.GoHome

   End Sub

  Private Sub Form—Resize()  

  ′改变窗口大小后同时改变控件的大小

   On Error Resume Next

   WebBrowser1.Width=Form1.ScaleWidth

   WebBrowser1.Height=Form1.ScaleHeight-950

   Label1.Width=Form1.ScaleWidth

   Label1.Top=Form1.ScaleHeight-200

  End Sub

  Private Sub ComBo1—Click()

   WebBrowser1.Navigate ComBo1.Text

  End Sub

  Private Sub Combo1—KeyPress(KeyAscii As Integer)  ′浏览输入的页面

   On Error Resume Next

   If KeyAscii = 13 Then

     ComBo1—Click

   End If   End Sub

  Private Sub WebBrowser1—BeforeNavigate(ByVal URL As String, ByVal FlagsAs Long,ByVal TargetFrameName As String, PostData As Variant, ByVal HeadersAs String, Cancel As Boolean)  ′将当前显示的页面的URL地址显示在 ComBo1上

   On Error Resume Next

   ComBo1.Text=URL

  End Sub

  Private Sub WebBrowser1—DownloadComplete()

   On Error Resume Next

   Me.Caption=WebBrowser1.LocationName

  End Sub

  Private Sub WebBrowser1—StatusTextChange(ByVal Text As String)  

  ′Label1显示当前页面装入情况

   On Error Resume Next

   Label1.Caption = Text

  End Sub

  Private Sub WebBrowser1—NavigateComplete(ByVal pDisp As Object, URL As Variant)

   On Error Resume Next

   Dim i As Integer

   Dim bFound As Boolean

   Me.Caption=WebBrowser1.LocationName

   For i=0 To Combo1.ListCount-1

     If Combo1.List(i)=WebBrowser1.LocationURL Then

      bFound=True

      Exit For  End If

   Next i

   If bFound Then

     Combo1 .RemoveItem i

   End If

   Combo1.AddItem WebBrowser1.LocationURL, 0

   Combo1.ListIndex=0

  End Sub

  Private Sub ToolBar1—ButtonClick(ByVal Button As Button)

   On Error Resume Next

   Select Case Button.Key

    Case ″Back″

       WebBrowser1.GoBack

    Case ″Forward″

       WebBrowser1.GoForward

    Case ″Refresh″

       WebBrowser1.Refresh

    Case ″Home″

       WebBrowser1.GoHome

    Case ″Search″

       WebBrowser1.GoSearch

    Case ″Stop″

       timTimer.Enabled=False

       WebBrowser1.Stop

  Me.Caption=WebBrowser1.LocationName

   End Select

  End Sub

  现在,单击启动你就可以使用你自己的浏览器了。该程序在Windows 98、Visual Basic 6.0下运行通过。
Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得·福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯·刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 科技界最聪明的人:Facebook首任CTO激情燃烧的岁月 继乔布斯时间胶囊出土 其儿时的家或成历史遗迹 微软向7亿Windows 7用户发布Internet Explorer 11预览版 乐视腾讯深度合作 超级电视26日易迅网首发 开源jQuery插件推荐 帮你快速构建单页网站 实时数据追踪?Salutron发布LifeTrak API Infoworld Bossie Awards:最好的开源App锦集 除了乔布斯的鼠标 值得装入时间胶囊的十大科技产品 2013中国互联网安全大会:云环境带来的安全隐患和机遇 2013中国互联网安全大会:软件安全新挑战 专访Line大中华区总裁:即使卖萌,也能深入人心 iOS开发者必备:四款后端服务工具 市场研究公司:iPhone5C/5S成本分别是173、199美元 对软件开发有利的5个敏捷编程方法 移动端性能大比拼:CSS Sprites vs. Data URI 三大峰会七大论坛,2013移动开发者大会将于11月在京举行 黑莓47亿美元收购的背后 微软或成最大受益者 搜索大战升级:360搜狗相互起诉对方不正当竞争 诺基亚将于10月22日发布6款新产品 平板Lumia 2520等 从17美元到50美元 Facebook股价上涨背后的两大关键 有谁知道*.dns用什么软件打开吗,急!!! 大家给我推荐一个delphi源码网站 Oracle8.17的安装问题,请大家帮忙,急呀!谢谢! csv文件存储求助 问个关于checkboxlist控件的用法! 客户端通过Session Bean 调用 Local EntityBean的问题. 启动j2ee的问题--j2ee -verbose 那里能够下载破解的install shield 5.0 or 5.5 or 6.0? 我想搞网络游戏开发,请教各位的意见 如何在接受表单的ASP文件中,去知晓是这个表单中的哪个'确认按钮'被按下了?? 我的数据库打不开了!!! 连接MySQL数据库服务器? 有谁可以推荐几个国外的比较热的asp论坛,多谢! 我是一个菜鸟,想学asp,希望前辈给指条路 有人知道工程硕士是怎么回事吗?和普通的有什么不同啊,可以考普通的博士吗?谢谢阿 access数据库为何备份出错? 有了主键,还需要建立索引吗?解决送分。 在Oracle的逻辑数据库结构中有个概念叫"范围"的是什么意思呀? 能将javascript改写成其它语言吗? 为什么动态创建的控件不能保存? HelpProvider控件的问题 如何把几个dbf表中的数据导到一个表中? 软件汉化有几种方法呢? 各位大虾,求助,在线急等! 看看我能放多少分.... 急啊,我刚买的电脑就出问题了~~~~ 大虾有没有《人月神话》的电子版啊? 天那,资源泄漏 怎样用Wingate绑定IP 高手请进!! 求WSAD 5.0 中文开发文档。 如何做rich Client? VB6在windowsXP中,无法用RmDir命令删除文件夹,只能删除文件,怎么回事?如何解决?在windows98中可以删除。 一个EXCEL的问题,请HELP update 没有加 where 字句导致误操作 怎么恢复(十万火急) ? 为什么国内域名比国际的还贵呢? BDE问题 请教三层结构中数据库访问 的问题 请教大虾怎样编写《网络连接监测》 ,还有怎样进行网络流量监测?(附源代码)多谢! 小问题 如何求总? 大家来帮帮忙 怎样在IE客户端用脚本取得本地机器名和本地默认打印机名称?盼高手赐教。 请教三层结构中数据库访问的问题 除了变量名不是内存地址,其他名都是地址。对么? 如何检测 Text1.text 中的输入的是否是日期格式 2003-12-31 ? 哦靠,什么病毒,大家帮我看看,怎么杀虫? 用Java开发水晶报表如何向报表传递参数以及如何找到满足条件的报表 为什么国内域名比国际的还贵呢? ie突然自动关闭了 各位大哥小妹帮帮忙,谁知道那里有关于数字证书管理方面的资料阿,急 谢谢了 男子将中国瓷器当垃圾尘封20年 拍出美参议院情报委员会主席:白宫已承诺停华人男子失业 纽约杀表嫂一家5口提审华人男子失业 纽约杀表嫂一家5口提审奥巴马社交账户被黑 其遭批“监听世界男子头戴丝袜闯婚礼震惊来宾 抢走数千安倍出访土耳其 称海底隧道是日土友好美国国务卿克里暗示未来几周内将出访埃卜拉希米:阿萨德可为建设新叙利亚作出美国监听风波陷两难 白宫急灭火共和党美媒披露纽约华人5口遇害细节 嫌犯此美方称机密情报泄露未对美外交政策造成福建一教师被抽调参与父母家拆迁 并非华人男子失业 纽约杀表嫂一家5口提审奥巴马社交账户被黑 其遭批“监听世界美国起诉英国黑客盗取机密文件 英当局津巴布韦男子蝉联最丑先生 自称丑与生美参院情报委员会主席吁对美情报工作大澳洲一名男子失踪4天期间靠吃昆虫喝池美国监听风波陷两难 白宫急灭火共和党克里说伊朗应以行动证明核计划用于和平比利时擒获巴黎恐袭案逃犯 奥朗德表示饿了吃几颗:天天消脂!排毒美白效果好为什么睡觉会越睡越累,真相原来是这个练就现货投资第一人 必须具备哪几大要【X精彩】为什么女生这么看重男票的身男生眼中“活好”的女生必备的技能是什冈本Skin超薄亲肤套套限量免费送?毁你三观的奇葩分手理由,真是没救了!男人迷恋女人的肉体是天性饿了么推7大举措 全面完善食品安全监恒大金服 是否能颠覆行业格局?十大重庆年度经济人物评选点赞结束 1A股六连阳后确定向上攻击?至少挑战3潼南汽车场地越野赛昨举行高速路上“套马” 折腾了1个半小时市政府召开第119次常务会议“一天考完场考路考”成现实弹弓冠军钢珠爆窗 一夜伤了35辆车明天南滨路,重庆国际马拉松开跑!银行卡刷卡手续费降低 POS机也要“华鼎奖投票正酣 泰森来颁奖
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘