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

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下运行通过。
计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 理解面向对象编程 -VB资料 VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 VB判断剪贴板的所有可用格式 VB判断驱动器类型 VB判断是否已经建立 Dial Up 连接 VB判断一个年份是否为闰年 VB判断一个驱动器的类型 屏蔽文本框默认的右键菜单——浅谈如何控制Windows消息 -VB资料 奇数和偶数校验-VB资料 启动控制面板命令大全 -VB资料 *** 高分,请问一个比较难的问题。哪位高手可以解决? *** 如何实现两台上INTERNET计算机之间文件传送? 关于网络代理软件WINPROXY Server 2.0的设置的问题。 关于加入到工程中的bmp文件 请问如何用PB实现个人相册中相片的增加,保存,浏览 [广告] 请帮忙测试一个MySQL的管理程序 我受不了拉。关于dll中的menu 关于网络代理软件WINPROXY Server 2.0的设置的问题。 发布站点的问题 winsock2 故障 如何实现两台上INTERNET计算机之间文件传送?有哪些方案可选? 关于linux下光驱的问题 如何提取Win2K/XP安装光盘的引导信息? 单元格日期格式从单元格中读出来时成了数字,如何另外的用代码还原成日期? 到底是怎么回事,北京拨号163有调整了吗? 在线的进来问点问题(jsp/javabean), 分不多其它帖子中送出 关于linux下光驱的问题 DELPHI怎样调用IE内核? 用PB7。0做的程序怎么用PB8。0打开呀 variant和array的转换问题 紧急:请给一个JRun Studio的最新正式版下载地址! 我的信誉分又被扣了,给个理由先!!!!!!!!!!!!!!!!! 问一个初级的问题? 新手问路:linux支持哪些语言? 怎么样在: sql server enterprise manager 中插入一条记录?? 如何动态向picture控件中加载图片 Bean的java里的class有什么区别? 为什么每退出一个程序或一个命令都会有一封信发给root!! 为什么每退出一个程序或一个命令都会有一封信发给root!! 菜鸟问题! 怎样在Window 98中设置环境变量,如Classpath=.....,path=....之类的. VB中常量字符串里要包含双引号怎么写? 我现在想装installshield,可是我找不到,不知道哪儿能单独下载!!!我的VC++ 6.0里没有奇怪了! 为什么关于adoquery等等生成xml数据文件以及如何从这些xml文件取数据的资料这么少啊??? 怎样在控件上画线,或者说怎样获取控件的Graphics对象. 大家快帮我回答这个问题吧,我会加分的:http://www.csdn.net/expert/topic/599/599906.xml?temp=.2423517 关于corba在delphi中的实现 比较难的一个问题: 用什么方法得到一个多播组的成员数量? 请问怎么解除两个互为复本的数据库之间的复本关系? 急,求一个API函数 用ATL开发组件来封装asp网页中遇到的问题:IRequest::get_Form(IRequestDictionary **ppDictReturn)应该怎么用?谢谢! 怎样用VB代码实现两个SQL SERVER数据库之间数据的复制。 请问为什么在网络编程中Send("this is a test",16);结果正常,而CString msg = "this is a test";Send(msg,16);却只能读到第一个字母 t ? 请问如何在c++builder5.5中安装c++builder API reference, netscape6.x上如何禁止显示select框右端的滚动条。 我的IE怎么提示: IE on windows2000 doesn't support ActiveX auto-downloading??? windows Api中的参数char *或者char array[12]在PB中怎麽声明? 请赐教:关于Java于Access数据库操作的问题 怎样让英文自动分行! 提供软件测试工具服务! 一个梯形的面积是40平方分米,它的上、下底之和是16分米,高是()分米 皮球的反弹高度与哪些因素有关 一块长16米,宽5米的长方形阔叶林,它的面积是多少平方米?如果它每天能制造氧气6千克,1平方米的阔叶林每天能制造氧气多少克? 小兰从家出小兰数学问题,小兰从家出小兰从家出发,用同样的速度先到外婆家,再到小芳家.已知,比从外婆家到小芳家所用的时间多5分钟,她平均每分钟走多少米,请列式.急 皮球的反弹高度与什么因素有关 学校买来篮球和足球共112个,其中足球比总数的7分之3还多2个,足球个数是篮球的几分之几? 小兰和小芳同时从环形跑道上的一点向相反方向走去,小兰每分走65米,小芳每分走75米,经过2. 5分相遇.这个环形跑道全长是多少米? 皮球的反弹高度 学校有45个足球和30个篮球.请你用最简分数表示篮球个数是足球的几分之几,足球个数占总数的几分之几?篮球个数占分数的几分之几? 中国的总面积是多少平方千米? 小明,小兰,小芳三人从自己家到学校分别要走0.98千米,1050米,106000厘米,想一想谁家最远?谁家离学校最近 已知三角形ABC中,角B=45度,AC=4,则三角形ABC面积的最大值为多少? 急 急 急一个长方体水箱从里面量长40厘米宽25厘米高20厘米箱中水面高10厘米如果在长方形水箱中放进一个长和宽都为20厘米高为10厘米的长方形铁块那么水面将上升多少厘米 6、一个占地400公顷的长方形植物园,长800米.它的宽是多少米?7、给一块16公顷的水田插秧6、一个占地400公顷的长方形植物园,长800米.它的宽是多少米?7、给一块16公顷的水田插秧,8天插完.按照 三角形ABC中,已知a+b=20.角C=60度.求三角形周长的最小值.三角形面积的最大值 有一个三角形,角a等于30度角c等于90度.将这个三角形均匀分成三块.怎样做11 小莉的邮票比小兰多二十四分之一.小莉给小兰3张.两人的邮票就相等了 已知三角形ABC中,角B=45°,AC=4,则三角形ABC面积的最大值 要算式在比例尺是1:9000000的地图上,量得北京到广州的图上距离是25.5厘米.一列火车以每小时110千米的速度在9月30日凌晨3时从广州开出,这列火车几月几日几时到达北京 小青和小兰集邮张数的比是三比二,如果小兰给小青12张邮票后,小青的邮票张数就是小兰的3倍,小青和小兰共有邮票多少张? 一块长4千米,宽2千米的长方形阔叶林,它的面积是多少平方千米?如果每天能制造氧气600吨,1平方千米的阔叶林每天能制造氧气多少吨? 中国最大的一级行政区是新疆维吾尔自治区,面积约166万平方公里,请问世界最大的一级行政区是哪个国家的什么地区,面积多大? 小丽和小兰爱集邮,已知小丽邮票张数比小兰多二十四分之一,小李再给小兰三张,两人邮票张数就相等了,她们原来各有多少张? 一块面积8 平方千米的阔叶林,如果它每天能制造600 吨氧气,1平方千米的阔叶林每天能制造氧气多 一个梯形的面积是5.04平方米,高是3.6米,下底比上底多0.2米.梯形的上底是多少米? 直角三角形周长30厘米,面积30平方厘米,求斜边的长? 三角形ABC的面积是24,且AD=2DC,BF=2FC,求四边形CDEF的面积F点在BC上,D点在AC边上。(不清楚的可以画图试一试) 已知三角形ABC中,角B的平分线与角C的外角平分线交于D,且角D=30度,求角A的度数 一个梯形的面积是4.2平方米,它的上下底之和与一个平行四边形的底边相等,高于平行四边形的高相等.这个平行四边形的面积是( ). 如右图,已知三角形ABC的面积为1平方厘米,且BC=CD,AD=3DE,那么四边形CDEF的面积为多少平方厘米?画得不好,多多包涵,只知道答案是1/3,求具体过程! 一个梯形的面积是100平方分米,高是10分米,上底是6分米下底是()分米 已知三角形ABC满足a+b=4,C=60°,求面积的最大值 如图,已知三角形ABC的面积是1平方厘米,且BD=CD,AD=3DF,那么四边形CDEF的面积是多少 已知一个直角三角形的周长为2+根号5,斜边中线的长为1,求这个三角形的面积. 浙江省面积有多少平方公里? 如右图,已知三角形ABC的面积为1平方厘米,且BC=CD,AD=3DE,那么四边形CDEF的面积是()平方厘米. 已知直角三角形的斜边为2,周长为2+根号6,求此三角形的面积 浙江的面积多大?浙江的面积到底有多大? 学校有篮球80个,足球50个.(1)篮球是足球的几分之几?(2)篮球是足球多几分之几?(3)足球是篮球的几分之几?(4)足球比篮球少几分之几? 一个直角三角形的周长是4+根号26,斜边的中线是2.求面积 浙江省土地面积是多少啊? 一根绳子能承受3000N的力.问要用多少股这样的绳子缠绕滑轮组才能提起10000N的物体,将物体提高2m,则绳子的自由端要移动几米? 我国陆地面积约960万平方千米西部地区的面积比全国陆地面积的十分之七还多13万平方千米我国西部地区的面积是多少万平方千米? 篮球与足球的个数比是5:6,篮球个数占两种球总个数的几分之几?足球占两种球总个数的几分之几? 一个梯形,4分米,如果上底和下底不变,高增加4分米后,面积增加12.8平方分米,原来梯形的面积是( )dm&su 我国西部地区占国土面积的3分子2,我国国土面积约为960万平方千米,求我国西部地区的面积为多少平方千米?希望能在今天就回答出来 已知三角形ABC中,∠A=60°,a=√3,则△ABC面积的最大值是 如果足球个数比篮球个数多7分之2,那么篮球个数比足球个数少几分之几?谢谢了 6、一个占地400公顷的长方形植物园,长800米.它的宽是多少米? 7、给一块16公顷的水田插秧6、一个占地400公顷的长方形植物园,长800米.它的宽是多少米? 7、给一块16公顷的水田插秧,8天插完.按 在三角形ABC中,a=2,A=60°,则三角形ABC的面积的最大值是网友:恋翼樱的提问最佳答案不对,故给出正解 一块长16米宽5米的长方形阔叶林,它的面积是多少平方米?如果它每天能制造氧气6千克,1平方米的阔叶林每天能制造氧气多少克? 我国里的面积约为960万平方千米,西藏的土地面积比青海多多少万平方米 一条绳子只能承受3000N的力,你怎么样组装滑轮组才能把10四次方的物体拉起来.要求改变力的方向并且使用的滑轮的个数尽量少要图 一块长16米宽5米的长方形阔叶林它的面积是多少?如果每天制造氧气6千克1平方米阔叶林每天制造多少克氧气 有一块占地40公顷的平行四边形植物园,他的底边长800米,高是多少米? 某根绳子最大能承受200n的拉力,某同学想用这根绳子装配滑轮组,以使他站在地面上拉绳子时能将重450N的物体匀速提升,若要求所用滑轮个数最少,请画出该滑轮组的装配图.若每个滑轮重6N,绳重 一块长16米,宽5米的长方形阔叶林,如果它每天能制造氧气6千克,1平方米的阔叶林每天能制造氧气多少克? 如图所示,滑轮组自重及摩擦不计.物体A重300N,在F=4N的拉力作用下,物体以5m/s的速度匀速运动.则物体在运动过程中受的阻力是 12 N;5s内滑轮组对物体A做的功是300J;拉力F的功率为60W.file:///C:/D 皮球的反弹高度与哪些因素有关?要写份实验报告,就是有问题、假设的那种,100字左右,明天要教的,最多半个小时, 一快长16米,宽5米得长方形阔叶林它的面积是多少?如果它每天能制造氧气6千克1平方米的阔叶林每天能制造氧气多少克?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘