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

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下运行通过。
Web开发者需养成的8个好习惯 GitHub工程师专访:奶昔+海象+游泳池=开源 Paymill发布移动SDK,实现应用内直接支付 免费到付费:全球第二开源Web Server Nginx“堕入”商业化 乐视发布新版智能电视操作系统LetvUI 2.3—Schnauzer 进步还是灾难的开始?科学家首次通过互联网实现“心灵感应” 叫板Apple TV 谷歌发布Chromecast的iOS应用 性能提升100倍的秘密武器:一行SQL代码的妙用 60个开发者不容错过的免费资源库 专门针对初学者的Node.js教程 初创公司Parse.ly:1年内捕获1.6亿独立访问用户,收入增5倍 融资新方式:用未来10年收入的6%融资10万美元 小米手机-HAXLR8on:创客32小时全纪实 图文:看苹果下一代iPhone细节 能吸引你购买吗? [开源推荐]Intention.js:通过HTML进行响应式开发 Android副总裁Hugo Barra将加盟小米 三星将召开首届开发者大会 推新SDK和S Pen 15个步骤创立技术公司,并收获千万用户(三) H3Cloud:为企业提供最优化IaaS方案 VMware、红帽对决云管理平台 大数据辅助决策,构建智慧城市 所见即所得:四款免编程移动游戏开发引擎推荐 PaaS乱局:Container的新机遇 IDC再度下调2013年全球PC销量预期 平板电脑中枪 Waze联合创始人做FeeX 用众包方式增加银行服务透明度 Ripple CTO Stefan Thomas:Bitcoin与未来支付应用开发 第二届Coding For Fun编程马拉松实时快报→→ 数字化你的脸:14个智能眼镜开发平台 Unite2013开发者大会:Unity新增多项重磅革新 微软大中华区副总裁谢恩伟:微软云+端应用模型前瞻 移动周报:从硬件马拉松到Barra加盟,本周小米很火 当鼠标在Treectrl的Item上面停留时,会向主窗口发送什么通知消息? 请问我可以把autocad的文件作为一个字段保存到sql2000里面吗?我该怎么办了? 在一个Console程序中需要用到清屏(cls),但是聪console类中没有发现类似的功能,谁知道如何做?高分。 为什么一用request.htm进行搜索,就会要求下载保存search.asp文件? 怎样遍历一目录树并将其子目录及文件拷贝到另一地方 为什么当textArea的高度增大后它所在的单元格会变宽? 网上调查投票程序 ***散分求助--如何是jTable的某一列数据隐藏invisible,但是在数据还可以取出来? 安装quickstart问题,急……在线等待!!! 大送分 怎样写个SQL语句,把不及格的学生放在表noPass里? 黑客2观后感 明天要参加兄弟的追悼会。 在delphi中引用图片(jpg格式)如何限制图片的大小? 找不到Microsoft Office Server Extensions破解版的下载地址 关于VB二级考试的问题(请各位大虾多多帮忙撒:) DBComboBox非常奇怪的问题? 并发可以分为哪两种类型,或哪两种原因造成的? 真想把发垃圾邮件的邮箱和网站给黑了 如何得到一个目录的大小(关键要包含所有的子目录),有什么简单办法吗? 多表间的数据更新(在线给分) 再向大家提个问题,还是求救啊,大家都来帮帮我吧 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 为什么我安装的 XPMenu 控件不听使唤的? 握一把苍凉 怎样遍历一目录树并将其子目录及文件拷贝到另一地方 一个列表控件如何转变为带有滚动的窗口视图? 我想学习写游戏,希望对此有兴趣的朋友,或者能给与帮助的朋友留下联络方法,便与交流 怎样给窗口加滚动条? 大家帮我看看这个存储过程,调用时老报错!! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 高人救命,如何让在单行textBox中按回车时不会“咣”的一声 在<script language="javascript">中使用aspb出错啊! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 郁闷!。。。今年我决定不考研。。。人家留在学校备考,我留在学校做课程表查询系统 filter怎么用呀? 怎样可以使得listview可以根据不同的列排序? 请对上海非常熟悉的朋友帮一下忙 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 运行表单时为什么出现“死机”----就是不能很好的运行??? 各位觉得清华出版的《数据结构C++语言描述——应用STL标准模板库》怎么样? 框架的问题? 在<script language="javascript">中使用aspb出错啊! jboss3 跟sql server 2000 数据库连接问题 “确定”按钮与“回车”键怎样进行消息传送 提问!! 如何获取一个字符串中中文字符的个数?50分) 救命啊!关于数字字符串的问题,so easy!送分! 请教一下杭州的PB程序员工资行情 怎样用vb将数据库中的数据以曲线的形式显示出来 在上海的有线通上,如何通过HUB使3台电脑共享上网 王勃的创作过程有何与众不同之处?请用自己的话回答. 五个自治区分别什么时候回归? 一台碾米机6分之5小时碾米12分之7吨,1小时可碾米( )吨,碾一吨米要( )小时. 有人认为 喜 怒 哀 乐是个人的事,因此,我们该笑就笑,该哭就哭 这观点对嘛.请说明理由 韩国主要粮食作物 韩国的主要粮食作物 班长竞选发言稿文笔要好,要有修辞手法,比喻,夸张、排比...不能少,句子通顺就行当然,比较好的好词好句也行我用来参考希望大家能真心的帮助我,不知道不要乱发.字数再多一些 体育组买来16个篮球和12个足球,一共760元.已知篮球和足球的单价比是5:6.篮球和足球各付多少钱?还要式子和解好了再多加点分 显而易见的易是什么意思答案从“欲望、想要、需要、将要”中选择一个。 显而易见的易是啥意思? 谁知道BBS的进入方式 旅游局:明年节假日方案仍在研究 将参以色列批准新建1500套定居点住房遭澳大利亚药物管理局警告当地人勿饮壮阳法国部分知识分子反对将嫖娼列为违法引韩国防长称将重组国军网络司令部 提高韩国防长称将重组国军网络司令部 提高第6届义乌森博会开幕 25个境外展团斯诺登不会赴德就监听事件作证 可在俄蒙古总统结束对朝访问 或未见金正恩英国考虑对外国购房者增税斯诺登与德议员会面三小时 向德联邦政专家论彩一代老去的农民工《爸爸》第二季萌娃晒流利英语 掀少儿番禺彩民大奖双响 10元票中500万“音碰音歌唱赛”广佛赛区决赛青海1076万巨奖寻得主广药王老吉世界杯战略收官3.8亿 奖池创22个月新高10年394亿瓶!营养快线的成功秘密专家论彩女子以为遇到“高富帅”谁知被骗走二十
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘