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

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下运行通过。
IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 Amazon CTO Werner Vogels:云和SaaS正在快速风靡全球 “人类先知”Isaac Asimov 50年前的科技预测大多应验了 2014年10大Web设计趋势 Google野心:App Indexing改写应用搜索格局 Cocos2d-x,老牌引擎的新进化 Kingdom Rush创始人专访:游戏与电影元素混搭 超实用的JavaScript技巧及最佳实践(下) 盖茨和鲍尔默或成挑选微软新CEO的最大阻碍 移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 传微软拉拢厂商推双启动系统手机 用户可选Windows Phone或Android 为什么游戏领域总是“抄抄抄”! 物竞天择、百家争鸣——评OpenStack生态圈 CES 2014:Intel针对可穿戴技术发布多款产品 直击CES:Pebble推金属版智能手表Pebble Steel 为4K智能电视而生:高通推出骁龙802处理器 英特尔首席执行官阐述可穿戴设备新技术及Edison计算平台 设计师如何写出更棒的项目建议 微软以1亿美元收购Parature“知识库” 登陆CES:三星发布智能家庭平台Smart Home CES 2014:GPS供应商Garmin推健康腕带Vivofit 《近匠》第05期:移动开发工具访谈,个推——有节操的push 【Hadoop技术博客推荐】Hive的那些事 Twitter联合创始人推社交搜索应用Jelly 马云“食言”进军手游分成比例8:2,开发者可拿7成 CodeCombat游戏全面开源:玩游戏也能学编程 怎么样学习网络编程?来者有分!不够再加. 请高手帮帮我!!! 如何改变打开、保存、另存为文件对话框中缺省的文件类型? 为何我的程序在VC编辑环境下按CTRL+F5不能正确RUN,在资源管理器下能正确RUN? make文件是怎么回事? oracle中long类型是什么类型? PB简单画图?保存到库表中? 用程序代码建立表结构的问题 怎么在状态栏中加入竖线分隔,而且调整字体的大小? 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 1.甲乙两车同时从AB两地相对开出,第一次相遇时,两车离A地是全程的五分之二;相遇后两车继续前进,到达BA两两地后立即返回,第二次相遇时,甲车离A地是全程的四分之AB两地相距多少千米?2.甲 (最好回答可以赢得财富值50)计时为10分钟内.1、图上20厘米表示实际480千米,这幅图的比例尺是().2、一个长方形的长宽高分别是9cm、4cm、5cm,它的体积是()cm³,表面积是()cm².5、 某工作如果由第一、二、三小队合干需要12天才能完成;如果由第一、三、五小队合干需要7天才能完成;如果由第二、四、五小队合干需要8天才能完成;如果由第一、三、四小队合干需要42 四个小朋友去钓了88条鱼,甲给乙五条,乙再钓两条,丙多钓一倍,丁少钓一倍,这时他们钓的雨都相等,请问他们每人钓鱼多少条. 17.菜场运来的萝卜比白菜多1.52吨,卖出0.2吨萝卜和0.4吨白菜后,白菜和萝卜的重量的比是7:9,原来各运来多少吨? 我想要小学一年级上学期的数学题在哪里找 问几道数学题,对了重谢1.已知直角梯形abcd中,ad平行bc,ab垂直bc,ad等于12,bc等于18,dc等于10,点p在bc上移动,则当pa+pd取最小值时,三角形adp以ap为底边上的高是————还有这个题 六年级奥数题,超急!要列计算过程!19.仓库里有一批化肥,运走45吨后,又运走余下的40%,这时剩下的化肥和两次共运走的同样多,仓库原有化肥多少吨? 三个人同时吃3个西红柿,用了3分钟吃完,6个人吃6个西红柿需要几分钟吃完?(仅用加减法列个式子) 于是有几道数学题>求各位高手解答.【七年级】初一> 红星厂制造一批零件,计划每天制造200个,15天完成,实际每天超产50个,多少天可以完成任务? 0952873641 3的前面第三个的后面第五位是几?到底多少呀 能不能讲下 5555555 跪求两道数学题的解(10分钟内回答双倍分!)已知关于x,y的方程组{x+y=2k+7 x-y=4k-3 的解为正数(1)求K的取值范围; (2)化简|9k+6|-|2k-10|.一定要有过程,谢谢! 1.甲、乙两箱苹果的数量的比是4:5,如果从甲箱取12个放入乙后,甲、乙两箱粉笔的数量比是7:5,两箱苹果共有多少个?打错,是甲乙两箱苹果的数量是7:不是粉笔,还有,刚开始甲、乙两箱苹果的 小学六年级奥数题,帮帮忙,最好有过程,谢谢!菜园里西红柿获得丰收,手下全部的八分之三是,装满一些筐还多24千克,收完其余部分时,又刚好装满6框,求共收西红柿多少千克? 如图,已知三角形ABC和三角形BDF都是等边三角形,试说明AE=CD的理由.图的地址在上面,是我自己画的可能画不好请多多见谅。中间那个交点是点E 1.一根柱子长方体,上、下底面和天花板和地面连接,长50厘米,宽40厘米,柱高8米.上、下底不需要上砖,四面贴砖,每平方米砖50元,贴完四面需要多少元?2.小强有邮票87张,小红有48张,小强给了小红 小学六年级奥数题 要过程的在第16届广州亚运会上,中国代表团取得了金牌第一的成绩.获得的金牌数比铜牌数的2倍还多3块,如果金牌再多1块,那么铜牌就是金牌的49%,银牌是金牌数的59.5%.问 1:甲乙两数之和是42,甲的3倍等于乙数的四倍,甲和乙各多少?2:两数之差是7,又知道两个数扩大3倍后和为45,则两数分别是?3:We have a (three) bills.括号提问! 1.一个数的9分之17倍是34.这个数是多少?2.甲数与乙数的和是16,甲数是乙数的3分之1.甲、乙两数个是多少?3.400减去它的4分之1后,正好等于一个数的5分之3,求这个数是多少? 两段圆柱的体积之差是314立方厘米.若将它们分别削成底面是最大正方形的长方体,则两个长方体体积之差是多少立方厘米? 1.二次函数s=1/60v^与s=1/150v^的图像有什么相同和什么不同?2.二次函数y=-3x^的图像与y=3x^的图像有什么关系?它是轴对称图形吗?它的开口方向、对称轴和顶点坐标分别是什么?二次函数y=-1/2x^的图 列式计算,红花有60朵:列式计算1.比黄花多1/5:2.是黄花的1/3:3.比黄花少1/6:4.黄花比红花多2/3:5.黄花比红花少1/6:6.黄花是红花的7/10:饲养场养鸡480只.鸡比鸭多1/8,鸭有多少只?一共有多少 实验室了有两个等高的容器,圆锥体容器的半径为9厘米,圆柱体容器的半径是6厘米,现在圆锥体容器装满水倒入圆柱体容器中,这是水深比容器的高度的6/7低3厘米,两个容器的高是多少厘米? 答得好 某市为了合理用电,某市鼓励用户安装“峰时”电表,该市原价每度0.53元 改装新电表后 每天晚上10时到次日早上8小时为“谷时”,收费标准是每千瓦时0.28元;其余时间为“峰时”,收费 一道奥林匹克的数学题,一辆车从甲地到乙地.如果把速度提高20%,可比原定时间提前1小时到,如果以原定时间1小时到达,如果一原定速度,如果以原速度行驶120千米后,则可以提前40分钟到达,那么 :用10张同样长的纸条粘贴成一条长51厘米的纸条.如果每个粘贴处都重叠1厘米,那么每张纸条长多少厘米? 问个简单数学题10分钟答出来给15分 了若X等于它的倒数,则(x+2)(x-3)/x-3÷x-3/(x-2)(x-3)的值是?带过程最好 六年级语文数学题!在线等!数学题:1:李叔叔去年按每股4元的价格买了民生银行股票2500股,到今年10月1日按每股6元的价钱卖出.在股票交易中,无论买卖都要缴纳0.3%的印花税和0.2%的其他费用. 1、一个长方体的长和宽都是5厘米,把它从长的中点截成两个相同的长方体后,得到的一个长方体表面积比原来大长方体表面积少120平方分米,原来长方体的体积是多少?2、两种商品的价格比试7:3 三十一又七分之二减二十二又十三分之六加四又七分之五加十一又十三分之六 造句:鹅毛般的苇絮恶狼般的眼睛为了 ...为了...为了.哑然失笑:急中生智:名言名句大提问挫折:灵感:成功:上衣和裤子的价格各是多少元?裤子的价格是上衣的三分之一,一套衣服共320元 1.某单位食堂一月内购买了三次大米,后两次购买数量是前一次的两倍,由于数量增加,每次加个都比前一次优惠10%,共用去2536.8元.如果下月一次性购买同样多的大米,可至少节约多少元?2.一个长 有十棵树,种成五行,每行种四棵,怎么种?十二棵树种成六行,每行四棵,又该怎么种? 一:忽然,像一阵风吹来的,远处的小丘上出现了一群马,马上的男女老少都穿个色的衣裳,群马疾驰,襟飘带舞,像一条彩虹朝我们飞来.“像一阵风吹来”说明________________,“彩虹”说明_____________ 丙在计算除法(有余数)是,吧除数137写作173,商多3,余数相同.求正确德商和余数 已知关于x的一元一次不等式3x+a/-13<3x-a/2的解集为x<7,求a的值. 两人:A,B从甲地和乙地同时出发,相向而行.第一次相遇离甲地5千米,然后继续走.走到两地后立即返回,第二次相遇离乙地2千米.问:甲乙两地相距多少千米? 一辆汽车共载客50人,其中一部分人买A票,每张1.20元;另一部分人买B票,每张1.00元,售票员最后统计出所卖的A票比B票多收入16元.买A票的有多少人?绝对要有解法,带讲解的我可能会追加的!赶快, 给我解个数学题,我不会解某人去银行存钱,利率是5%,是复利.此人第一年取1万,第二年两万,第n年取n万,要求每年都能取到钱.求此人一次性至少要存多少钱? 一辆车从甲地开往乙地,如果将车速提高20%,可以提前1小时到达,如果按原速行驶120千米后,再将车速提高25%,可以提前401分钟到达,甲、乙两地相差多少千米? 要把题目类型和解法写出来, 在平面直角坐标系中,已知反比例函数y=负x分之3m,和一次函数y=kx-1的图像都经过点p(m,-3m).求反比例函数的解析式. 1、长72米的列车,追上长108米的货车到完全超过用了10秒,如果货车速度为原来的1.4倍,哪么列车追上到超过货车就需要15秒.货车的速度是每秒多少米?2、一座大桥长1275米,一列火车过这座大桥.从 一个羽毛球4元,一个乒乓球2元.买这些花了100元.如果把羽毛球都换成乒乓球,乒乓球都换成羽毛球,则需要花92元.原来买这些乒乓球和羽毛球各多少个? 1.小华读一本书,当他读了全书的三分之二时,发现已经读了的页数比剩下的多30页,这本书多少页?2.求出图中阴影部分的面积.单位 cm总体是个半圆,画的不太标准,看懂得来算了,第二题大家都不 一列客车从甲城开往乙城,每小时行60千米,行了2小时后,从乙城往甲城开出一列货车,4小时与客车相遇,这时货车行了全程的3分之1,两城相距多少千米? 游乐中心内一个长方形游泳池,长25厘米,宽12.5厘米,深1.2厘米.如果用直径20厘米的进水管向游泳池内注水,水流速度按每分100厘米计算,注满一池水要多长时间? 一道数学题,十分钟内解答家100~一个晒烟厂用100克的海水可以晒出3克盐如果一块盐田一次放入5000吨的海水可以晒出多少吨盐? 请用算式答小李算长方形的体积时,误将宽多算了五分之一,高少算了四分之一,结果比正确答案少了40立方厘米,那么该长方形实际体积是多少?大家请用算式答!大家请不要回答的太深奥,我才 求助小学六年级寒假作业一道数学题解法甲、乙两人以匀速绕圆形跑道按相反方向跑步,出发点在直径的两个端点,如果他们同时出发,并在乙跑完100米时,第一次相遇,甲跑一圈还差60米时第二次 请各位高手帮忙解答几道奥数题1、4.25×5.24×1.52×2.51=2、 0.01992乘0.004乘2000分之1怎样用简便方法算,麻烦各位写出详细解题过程 10分钟之内回答,谢在数轴上的点A对应的数是-3又1/2,那么与点A相距3个单位长度的点所表示的数是:________.错了 小学(超难的)我国个人所得税规定;个人月收入超过800元的部分应缴纳个人所得税,超过部分中,个人所得税率为;超过部分 500元 501~1500税率 5% 10%叔叔上月的税后工资为1500元,他交纳了多少 1.六年级一班上学期的女生人数是男生人数的7/8,这学期转走一名女生后,女生人数与男生人数的比是5:6.这学期六年级一班有多少人?2.一根木料,第一次锯下的长度与全长的比是1:3,如果再锯1.2米 一共有两道哈.1、一桶油,第一次倒出它的六分之一,第二次比第一次多倒出20千克,这时已倒出的油与剩下的油的比是7:5,这桶油原来有多少千克?2、甲、乙两个书架,共有图书3000本,甲书架上本数 甲乙二人分别从东西两村同时相向而行,第一次相遇于距东村36公里处.二人继续前行,至目的地后折返,在距东村54公里处第二次相遇.问::东西两村的距离. 几道数学题,请各位高手解答1. X的平方+5X-8,答案上写的是Prime什么意思???2. a的平方—3a+2ab-6b3. 12d的三次方+22d的平方-70d4. a的8次方-2565. what is the sum of three consecutive integers?为什么 《当堂练》上的六年级数学题,十分钟内1.有一个底面半径是2cm,容积是31.4毫升的圆锥形容器的高是多少厘米?(算式,2.一个圆柱体和一个圆锥体的底面积和高都相等已知圆柱底面周长是12.56分 ABCDE×ABCDE———————XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX———————XXXXXABCDE 求A+B+C+D+E=?A= B= C= D= E=ABCDE不可能是零
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn