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

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下运行通过。
为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 在ITEMCHANGED里获得值? 如何操作dbf文件? 请推荐关于c/c++的优秀英文译本 请问: 投稿程序员杂志要多少时间才有回音? 一个难题!非常着急,希望大家帮我解决! 为什么该父类无法调用其子类. 请教CDateTimeCtrl控件问题! 高分求救!哪位哥哥能否帮我解决一下几道C编程的题目,我讲感激不尽!!!谢谢 我找到一个DELPHI的技术站点,还可以,请大家来LOOK 动态显示图片!!!!!! 本人是beginner for vc++,希望以后多交流。现请求一个vc++作的画图程序 大侠执教:投稿程序员杂志要多少时间才有回音? 有办法在控制台程序启动时,隐藏它的DOS窗口吗? 关于MFC中的Project Settings问题 两个编程的初级问题 谁能给我一个关于二叉树的完整的程序。 认识的进来聊天 , 我是东宝 (yeti_lee) 我是一名学生,学计算机(一个普通大学)。请教大家几个问题 大连成绩如何查??有人查到了吗?请聊聊 分是个累赘,我放完它~!来的就有,讲些凄惨的事情和遭遇,大家比谁惨,越惨的给分越多,兄弟我此举是为了找平衡。 怎样得到当前系统打印机的各项信息?????特别是打印纸张方向!!! 高分求救——我有几道C程序的编程题目,望各位高手帮忙解决!谢谢 哪位告诉我select语法,我忘了group by 的使用方法,谢谢! 请问哪儿有电子版的《COM编程精彩实例》,谢谢! 请问:要想学习vb和数据库的知识,哪些书比较好?请各位朋友帮忙推荐几本好书?谢了~! 请问有谁知道PB8编译后打包,PARADOX数据库驱动程序需那些啊????急!!!!!! 在oracle存储过程中怎么使用cursor作为返回值? [TIPS]Win9x和WinNT/2000下面都可以去掉OICQ广告的方法! 触发器问题 关于bdgrid的问题,高手请来,一定高分相送!!!!急 怎么建立WIN2000的域信任关系 用data控件连接DBf数据库时为什么出现“找不到可插入的ISAM”错误? 大家等会儿再吃饭!先看一看这里的送分大餐...... 他们怎么想的?居然没有bcb? 高手指教:如何在vc中控制刻录机和磁带机进行数据备份和恢复? 请问各位高手,怎样才能学好c语言。有没有什么好一点的网站和源码提供,多谢。 如何解决在向量位图背景下的窗口移动是的刷新置后问题?? 问一个问题!爱好or 程序员? 用VB如何设计好的报表,欢迎讨论! messagedlg能不能显示中文?例如显示“确定”,而不是“ok” 各位高手!!请教一个有关在oracle8i中建立表与表之间的关系? 请问哪里有无时间期限的Setup Factory 下载? 笨呆呆,拿分。 请问到那里可以下载uml工具,如果再有推荐的话是一定可以得分的 再次有请: playyuer 吴文智、袁飞、Jneu、Amoon、ttyp、icevi、progame、Jinesc 等各路高手 偶是初学者,问一个问题 SOS,很严重windows的问题,高手快进 复制Access数据库时出现的问题 如何动态添加TQuery的字段??? 编译一问 SOS,很严重windows的问题,高手快进 !!! 求人教版高中物理,化学课件. “出人头地”成语接龙,首尾要一样的,最少8个,错字我能看出来,别想蒙混过关不是啊,例如:机不可失→失不再来→来者不拒→拒之门外... 浓硫酸与二氧化锰、氯化钠制氯气,为什么生成硫酸氢钠,而不是硫酸钠. 氯化钠显什么性?中性碱性,还是酸性?氯化钡是酸性还是碱性 为什么H2O是分子,而NaCl不是?如果说什么NaCl是由离子构成,而H2O不是,那为什么不可以说H2O是H+和O2-构成?还有NaCl叫NaCl什么?就像H2O叫H2O分子一样.还有就是由分子构成的和由离子构成的区别是? 如何用氯化钠二氧化锰浓硫酸制氯气我将氯化钠二氧化锰和浓硫酸倒在一起时没有想这个视频一样的效果,这是为何?好像都没反应.而且这个视频人家一倒浓硫酸进去就反应了.视频地址:http:/ 跪求人教版高中物理必修一、必修二每课的说课稿! 高中物理必修一43页第3题 二氧化锰,浓硫酸,氯化钠制取氯气哪个是还原剂,哪个是氧化剂. 牛奶掺水(打一成语)——水乳交融 NaCl显什么性 CaCO3和H2O反应吗 请问,水乳交融这个成语怎么来的 nacl呈什么性? 水落石出(成语接龙) 和"水乳交融"意思一样的成语 氯化钠溶液显什么性? caco3能和nacl反应吗 氯化钠是什么 氯化钠溶液呈什么性 9、在同一高度将质量不相等的两个小球A、B以大小相等的初速度分别竖直上抛和竖直下抛,下列说法中正确的是:A.在运动过程中,A、B的加速度相同B.A、B落地时的位移相同C.A、B落地时的 nacl是什么 高中物理选修3-1还是必修2难啊? 成语接龙:摇()怜()玉()事()为()仁()德()功()满()花()语()长()日()言()一()水() 我需要优秀的高中物理说课稿, 高中物理必修3-1一定考的是那几个方面? 2010年黄冈物理中考第30第一题的详细解析 水落石出———————对应的一个成语 必修二,选修3-1,3-2课本目录, 水落石出开始成语接龙,结束在安居乐业吗?有个题把我难住了!请各位大侠帮帮忙!大家记好是成语!出入平安不是成语!没有规定词的数量!帮帮忙好吗! 成语水落石出来源于哪个故事?hfuff 高中物理 必修2 ω=2πn什么意思?急求结果!谢 最好能接的长点,最少4个...速度,请教大家.从“水落石出”开始成语接龙,结束在“安居乐业”.谢谢! 水落石出这个成语的来源是?如题 高中物理必修二所有字母的意思 成语接龙:水落石出→真相大白 用一个成语来解释水落石出 027期正版四字梅花诗:水落石出.打一生肖 反应原理:Cl2+2NaOH=Cl2+2NaOH==NaCl+NaClO+H2O.若用NaOH溶液的质量分数为百分之10,计算,吸收14.2千克CL2,理论上至少需要消耗百分之十的氢氧化钠溶液多少千克?相对原子质量:H:1 ,O:16 ,NA:23 ,CL35.5 水落石出,接近的 俗语 145期:正版四字梅花诗:水落石出怎么解释 实验室制取有毒氯气时,常用氢氧化钠溶液来吸收多余的氯气,其反应的化学方程式为Cl2+2NaOH=X+NaClO+H2O,则X的化学式为( ),该判断依据是( ) nacl是啥? 生活中的圆周运动 绳锯木断下一句是什么 水落石出打一个生肖的谜底是什么肖 生活中的圆周运动地球可以看做一个巨大的拱形桥,桥面的半径就是地球的半径R(约为6400km).地面上有一辆汽车在行驶,重量是G=mg,地面对它的支持力是Fn.根据上面的分析,汽车速度越大,地面对 绳锯木断,下一句 高中物理补习?孩子高二,期末成绩不好,补习一下会好吗? 生活中的圆周运动 F合=mgtanα≈mgsinα=mgL/h为什么是≈呢? 绳锯木断的下一句是什么要完整的,我急. 如何复习高中物理…例:(我基础差,要留级,想先复习下)我基础差其他如题. 高中物理必修二中最重要的公式 "绳锯木断"下一句是什么? ψμ水落石出,水落石出打一生肖ψμ 有关功率的的公式 【黄冈中考题一道】某科技开发公司研制出一种新型的产品,每件产品的成本为2400元,销售单价定为3000元,在该产品的试销期间,为了促销,鼓励商家购买该新型产品,公司决定商家一次购买这种 急求:人教版高中物理必修一重点章节说课稿烂得不要有的说一声 发到邮箱jxf2828@126.com 链接也可以 谢谢 成语接龙:出人头地 地动山摇. 用氯化钠和浓硫酸和二氧化锰制取氯气,如果是因为硫酸先与氯化钠反应生成了氯化氢,再与二氧化锰反应生成氯气 那么产物就应有氯化锰啊,可为什么是硫酸锰呢?如果是氯化锰和硫酸反应生
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn