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

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下运行通过。
苹果iPhone6获工信部许可 本月17日在内地发售 使用Redis之前5个必须了解的事情 妆媒体微信公众号背后的酸甜苦辣 TIOBE 2014年10月编程语言排行榜:Dart首次进入前20 Instagram工程师教你如何改善App的性能 利用Neo4j对电影评论进行深度学习情感分析 【简讯】SQLite 3.8.7来了 性能提升超50% 浏览器重定向性能分析经验谈 豆瓣工程副总裁段念:看板方法核心瞄准流程中的“流动性” 【图文实录】CTO俱乐部公开课:探讨如何成为技术团队管理者 资深产品交付咨询顾问何勉谈看板:“以价值拉动”解决敏捷困扰 开源HTML5游戏引擎Frozen背后的技术 MDCC 2014精彩日程、演讲嘉宾、参展开发团队全揭秘(图) Hi,约吗?2014华为开发者联盟沙龙(上海站)火热报名中! 找虐新方向!TinyScreen显示屏打造最小游戏机 精彩继续 MDCC2014首次推出技术训练营 复制器官哪家强?3D生物打印找PrintAlive 电信开放平台应用内计费SDK 助力App小额快捷支付 专心做设计!开源跨平台应用开发框架Appverse Mobile 无线盛宴尽在阿里百川开放大会 医学界的Instagram:加拿大重症监护医生开发照片分享应用 2014中国移动开发者大调查第二批获奖名单揭晓 基于OpenStack的私有云开发部署实践 亚马逊云平台的迁移过程 【干货】微信企业号开发资源集锦 CSS生日快乐:CSS之父Håkon Wium Lie访谈录 好友近2000万,绑定银行卡过千万,日会话近百万,招商服务号成功之道 一名程序员十年技术之路的思考与感悟 聚焦企业号、服务号典型案例 微信开发者大会深圳站正式开启 Objective-C之父Brad Cox访谈:我的编程之路 【先锋】完成B轮融资的TalkingData新商业模式:平台理念+跨界分析+技术开源 运行时出现"找不到vcl50.bpl动态连接文件"的错误,请高手指教 打印纸的设定???? pb80+B/S 用视频采集卡采集视频数据,图象的扫描频率都高于显示器的扫描频率,为什么? ADO的臭虫、问题太多,只好用BDE了 kylix3装在RedHat7.3上界面显示不出来?高手请帮忙! 键盘"DEL"键和右键"删除"的区别? 打不开WORD文件? WIN98只能进安全模式,不能正常进入,什么原因 关于insertrow后不update而先getitemstring的问题。 tomcat 配置问题 C# 基于套接字的聊天室 遇到一个问题 高分请教!!! WIN95的序列号给一个谢了,各位兄弟,帮个忙。。 请问数据流程是指那方面的? 关于如何调用Windows Media Encoder 如何用vb实现将数据写入到excel和word中。请附源代码! 卖书拉,都是比较经典的,需要的看看巴 关于拨号连接的问题? 菜鸟问题:请问怎么安装Gcc3.0呀!随便问一下哪里有最新的版本下载? 关于存储过程的一些小心得(不知道对不对) 高手求救,ISAPI调用SQLserver的问题。在线等待! c语言编程访问大硬盘的物理扇区时坏扇区如何判断,如何跳过! WIN98+IE5和WIN2000+IE6运行JAVASCRIPT脚本的结果怎么不一样? 如何在只允许输入数字的文本框限制汉字的输入 求助!sql server 种子 自动标识 递增 在delphi中突然不可用??:(,嘴气歪了 出事了,我的线程停不了了。高人帮帮手。 asp连接oracle???急!!在线等待!! MSFlexGrid控件要如何添加内容? 我在基于FORMVIEW内加一个贴图的按纽,能显示,但返回时,按纽没了,且按纽地方一块灰色,为什么 如何給N條紀錄自動生成一個編號並寫入數据庫? 关于控件SmartMenuXP开发的文档 求助:混淆器JOC相关问题!!!急急急急急急急急急!!! 串口通讯 DBListBox可以直接显示出数据吗,象DBGrid一样 ** AddressOf在多线程方面后面的方法不能带参数嘛?100分送上! 急...区分两个不同按钮事件. 怎样使用SQLClientDataSet向数据库中添加和删除记录呀? 给我点勇气继续下去 在jsp中如何判断传来的字符串是8859-1编码还是gb2312编码方式 ----------m_ctrl[MAX].Create控件用DestoryWindow后怎么判断被Destory了this Help:about IIS 求Visual Studio.Net序列号!郁闷半天了! 怎么可以离开这个界面呢,在unix中 怎样在一个多线程程序中使用ADO2.7?? 域用户登录不了域…… 怎样制作VC的数据库表格?? Help:about IIS 做一消息问题? VB6和ACCESS的问题 有关Excel的简单问题 请问创建CListCtrl问题, 草履虫从外界摄取食物后形成什么 在日常的灯光下,绿色开花植物能进行光合作用吗?不是“浴霸”那种灯! 中国人民银行领导人指出,我国已开始实行以市场供求为基础、参考一揽子货币进行调节、有管理的浮动汇率制度.这是中国完善人民币汇率形成机制改革的一项重要举措.汇改的实施对国际贸 草履虫靠什么吃东西 中翻英 长度以0.1m为单位,不足0.1m舍去.缝合允许每反1处,位置要在两端末10m以上.长度以0.1m为单位,不足0.1m舍去.缝合允许每反1处,位置要在两端末10m以上. 经济生活 . 将初一,初二政治按心理,道德,法律分类. 求一个“米”的单位比如1米就是 什么是力的示意图与图示? 印刷油墨溶剂成分及比例 一质点在半径0.1M的圆周上做运动,其角位置为0=2+4T3次方,0的单位为RAD,T的单位为S.求T=2时,质点的法一质点在半径0.1M的圆周上做运动,其角位置为0=2+4T3次方,0的单位为RAD,T的单位为S。求T=2时 谷地地形对气候有什么影响 促胰液激素是什么分泌的 (1)简述国联的成立和主要活动 (2)评价国联的历史地位 谷地地形形成的原因是什么? 国际联盟的实质是什么? 评析国联的历史地位. 问地貌是什么,答谷地和峡谷都可以么?地貌一般答什么? 电力变压器分接开关的种类、结构和作用各是什么? 国际联盟是谁提出的? 衣藻 草履虫 酵母菌 细菌是通过什么与环境进行物质交换的 一战后,国际联盟的实质是什么 【改病句】这只克隆牛的成功诞生,是该科研所多年来努力研究的第一只. 维C和海鲜能形成砒霜样的物质吗?虾和维c 蟹和维C有没得区别?砒霜的形成还需要参于哪些东西? 国际联盟是什么机构? 国际联盟成立? 谷地的温度是高还是低 内分泌腺是没有什么的腺体,其分泌物会直接进入腺体内的什么,通过什么运输到某个 分析美国建立国际联盟的各种目的 中国的东北三省中的三江平原、松嫩平原、辽河平原,黑钙土分布在哪个平原的?问题如上面所述! 一个角的余角比他的补角的2/9多1度,求这个角的度数. 憾换偏旁写新字在组词(要同音字) 黑龙江省最大的平原是三江平原还是松嫩平原? 内分泌腺_______(填“有”或“没有”)导管,它们分泌的激素直接进入腺体内的______,并随着____输送到全身各处. 最早提出设立国际联盟的国家是? 自来水过滤器哪个牌子好?自来水过滤器哪种好?什么牌子好? 草履虫能生长吗?其他单细胞生物能生长吗?如果不能,说明理由,如果能,说出它们是如何生长的. 朋加偏旁组词怎么组词 自来水过滤器什么牌子好?家用的自来水过滤器哪种好?什么牌子好? 110KV以上电力变压器的主要结构有哪些?我说的是110KV以上电力变压器选项有四A铁芯、绕组、外壳B铁芯、外壳、套管C绕组、导电杆、变压器D铁芯、绕组、外壳、套管及冷却系统 克隆牛是转基因技术吗? 什么牌子的自来水过滤器好 国际联盟的时间、地点、国家、性质? 初一级政治探究与实践题(很急、、、)对待挫折,著名的数学叫华罗庚曾说过:“在科学的道路上没有平坦的大道可以走,只有一条弯曲的小径.只有不畏劳苦攀登的人,才有可能登上科学的高 生活中的病毒有哪些 汉语是什么时候在国际联盟会上被认可的!1929年蒋作宾在国际联盟会上用汉语发言后,汉语是什么时候在国际联盟会上被认可的~ 物体受力示意图的画法支持力、吸引力、拉力、摩擦力、浮力、重力……这些力的作用点该从哪画起 黑钙土和黑土有什么区别?松嫩平原和三江平原的土壤分别是哪一种呢? 国际联盟起止时间是什么? 克隆牛都用到什么技术简答 三江平原和松嫩平原不都是东北地区吗?为什么土壤种类不同?它们和内蒙古的土壤都是些什么种类的呢 国联是什么时候,怎么样成立的国际联盟,联合国以前的 衣藻草履虫和细菌都属于单细胞生物,它们的共同特征是都具有( )( ) 芦苇有什么作用! 塑料含有什么成分呀 青少年如何合理安全的饮食能使我们更健康的成长青少年正处于身体生长和智力发育的黄金期,合理安全的饮食能使我们更健康的成长.校园周边食品安全问题一直是广为关注的问题,你能通过 草履虫衣藻酵母菌水蚤都是单细胞生物吗 阐述公司产生的社会基础、时代背景及公司特征、功能.给点指导哈. 对于青少年来说,长城具有什么重要意义 生活探究中国特色社会主义法律体系建设为什么要以宪法为统帅?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘