文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
自己的IE——用VB制作浏览器
来源:转载   人气:1726   录入时间:2007-11-8
    自己做浏览器?有没有搞错?不要说像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




Copyright(C)2007-2024 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987