首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法..
VB访问SQL Server数据库技术全..
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整..
在VB中该如何控制其它程序的弹..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二)..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思..
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频..
VB编写一个能显示百分比的自定..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二)..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序

技术教程 -> VB教程 ->  
自己的IE——用VB制作浏览器
来源:转载   人气:4840   录入时间:2006/5/16


    自己做浏览器?有没有搞错?不要说像IE这样的庞然大物,就是小巧的Opera,我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版,那么事情就好办多了,想试试吗?那好,Let`s go!
     程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代表的控件正是我们需要的WebBrowser。
     由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程序中用到的:
     属性:LocationURL 返回控件显示WEB页面的URL。
     方法:Navigate 转移到指定的URL或打开指定HTML文件。
     事件:1.DownloadBegin 下载操作开时触发。
     2.DownloadComplete 下载操作完成、终止或失败时触发。
     3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元是将要下载的数据总量。
     4.TitleChange 当前文档标题改变时触发
     除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),这些控件的属性值都用缺省值。
     以下是程序清单:
     Option Explicit
     
     Private Sub Form_Load()
     Me.Caption =“My Explorer”
     Label1.Caption = “URL”
     Combo1.Text = “”
     Combo1.Top = Label1.Height
     Combo1.Left = 0
     WebBrowser1.Top = Combo1.Top + Combo1.Height
     WebBrowser1.Left = 0
     Form_Resize
     StatusBar1.Style = sbrSimple
     ProgressBar1.Zorder
     End Sub
     
     Private Sub Form_Resize()
     On Error GoTo a
     Combo1.Width = Form1.Width - 100
     WebBrowser1.Width = Combo1.Width
     WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
     ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
     ProgressBar1.Left = 0.25 * StatusBar1.Width
     ProgressBar1.Width = 0.75 * Me.Width - 250
     a:
     End Sub
     
     Private Sub Combo1_Click()
     `转到指定网址
     WebBrowser1.Navigate Combo1.Text
     End Sub
     
     Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
     Dim I As Long
     Dim existed As Boolean
     If KeyCode = 13 Then
     If Left(Combo1.Text, 7) <> “http://”Then
     Combo1.Text = “http://”+ Combo1.Text
     End If
     WebBrowser1.Navigate Combo1.Text
     For I = 0 To Combo1.ListCount - 1
     If Combo1.List(I) = Combo1.Text Then
     existed = True
     Exit For
     Else
     existed = False
     End If
     Next
     If Not existed Then
     Combo1.AddItem (Combo1.Text)
     End If
     End If
     End Sub
     
     Private Sub WebBrowser1_DownloadBegin()
     `下载开始时状态栏显示“Now Linking...”
     StatusBar1.SimpleText = “Now Linking...”
     End Sub
     
     Private Sub WebBrowser1_DownloadComplete()
     `下载完成时状态栏显示“Link Finished”
     StatusBar1.SimpleText = “Link Finished”
     ProgressBar1.Value = 0
     End Sub
     
     Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,
   ByVal ProgressMax As Long)
     `下载进行时进度条变化
     If ProgressMax = 0 Then Exit Sub
     ProgressBar1.Max = ProgressMax
     If Progress <> -1 And Progress <= ProgressMax Then
     ProgressBar1.Value = Progress
     End If
     End Sub
     
     Private Sub WebBrowser1_TitleChange(ByVal Text As String)
     Combo1.Text = WebBrowser1.LocationURL
     End Sub



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号