2.用WebBrowser控件设计浏览器

转载 2004年10月24日 18:53:00

2.用WebBrowser控件设计浏览器
  用WebBrowser控件设计浏览器的方法相对前面的方法而言,具 体操作要多一点,因为对应的每个控件都要设置属性并编写相应的 代码,从而编程量也要相对地大一些。下面来具体说明其方法和步 骤。
  (1)新建一个项目并打开一个新的窗体Form1;
  (2)用鼠标右键单击工具箱以添加新的部件Microsoft Common Dialog Controls、Microsoft Windows Common Controls 5.0和 Microsoft Internet Controls;
  (3)在窗体Form1中添加一个Toolbar控件Toolbar1,然后打开 Toolbar1控件的Properties(属性)页,在Button(按钮)选项卡 中单击Insert Button按钮,增加Back(向后)、Forward(向 前)、Stop(停止)、Refresh(刷新)、Home(归位)、Search (搜索)、Open(打开)、Navigate(导航)、Exit(退出)等常 用命令按钮;
  (4)添加一个ImageList控件ImageList1到窗体Form1中,打开 Imagelist1控件的Properties(属性)页,在Images(图象)选项 卡中单击Insert Picture按钮,输入一些对应按钮的合适的图标, 然后到tbToolbar控件的Properties(属性)页中设置General选项 卡中的ImageList值与Buttons选项卡中的Image值,使上述命令按 钮与合适的图标相对应;
  (5)从工具箱中选出CommonDialog(通用对话框)控件添加到 浏览器窗体中,将其命名为CommonDialog1,为编写与Open按钮相 应的事件代码作准备;
  (6)添加一个Label控件Label1到窗体Form1中,将其Caption值 设置为“地址(URL):”,再在此控件附近合适的位置添加一个 ComboBox控件Combo1,以便生成Web地址的下拉列表框;
  (7)添加一个WebBrowser控件WebBrowser1到窗体Form1中,将 其调整到合适的位置上;
  (8)添加一个Timer控件Timer1,将其Enabled与Interval值分 别设置为False和5;
  (9)在Form1窗体的属性窗口中将MDIChild属性值设置为 False;
  (10)在该项目的属性设置窗口中的启动对象设置为Form1窗 体;
  (11)为对应窗体和每个控件等对象编写相应的事件程序代码, 具体可参照前面的程序代码,只要更换一下相应的窗体或控件等对 象的名称,其他的基本相同,在此就不赘述了。
  无论用Visual Basic 5.0现成的浏览器(Browser)窗体还是用 WebBrowser控件来设计简单的Web浏览器都比较容易。就两种方法 相比较而言,前者因浏览器(Browser)窗体本身集成了一些基本的 控件,并且相应的代码已经写好,要做的只是为添加的控件或菜单 等编写代码,所以显得较为简单些;而后者因每一个窗体或控件等 对象都要进行选择、添加、设计、编写代码等,所以相对较为复杂 些。无论怎样都能在此基础上进行扩充,从而设计出较为高级的浏 览器来。PCC



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 Command1_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub

Private Sub Form_Load()
    Me.Caption = "My Explorer By Xyuan"
    Label1.Caption = "Web 地址:"
    Combo1.Text = "http://iamxuyuan.go.nease.net"
    ProgressBar1.ZOrder

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
     Case "Exit"
     Unload Me
     Case "Back"
     WebBrowser1.GoBack
     Case "Forward"
     WebBrowser1.GoForward
     Case "Refresh"
     WebBrowser1.Refresh
     End Select

End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
ProgressBar1.Value = 0
End Sub

Private Sub WebBrowser1_DownloadBegin()
StatusBar1.SimpleText = "现在从" & Combo1.Text & "下载"
End Sub

Private Sub WebBrowser1_DownloadComplete()
StatusBar1.SimpleText = "下载完毕"
ProgressBar1.Value = 0
Me.Caption = WebBrowser1.LocationName
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

WebBrowser自动填表与提交

要使我们的WebBrowser具有自动填表、甚至自动提交的功能,并不困难。   假设有一个最简单的登录页面,输入用户名密码,点“登录”按钮即可登录。已知用户名输入框的id(或Name,下同)是user...
  • qinleiji
  • qinleiji
  • 2007年04月22日 23:07
  • 2481

c#使用webBrowser,控制页面、提交表单的两种方法

一、第一种方法貌似网上很少有人提。。。。就是使用javascript去控制页面。熟悉javascript的人知道,它主要是用来控制客户端浏览器上行为动作的语言。用浏览器随便打开一个页面,在地址栏输入:...
  • maji9370
  • maji9370
  • 2009年07月16日 15:35
  • 2779

浏览器集成教学 在你的应用程序中集成WebBrowser控件

    我把这篇译文作为献给我母亲的生日礼物——虽然我不愿意提醒她又老了一岁。她在我走向程序员的过程有起着极其重要的影响。蒋晟 2003年6月11日 MSDN 主页>  Microsoft Inter...
  • jiangsheng
  • jiangsheng
  • 2003年11月09日 23:03
  • 5847

c++builder 2011 用WebBrowser控件做的浏览器

//---------------------------------------------------------------------------#include #pragma hdrsto...
  • syrchina
  • syrchina
  • 2011年07月19日 20:25
  • 2883

vb.net使用WebBrowser浏览器控件自制浏览器的相关技术

vb6.0到.net很多机制都不同了,一些东西的确折腾了半天。案例:登录验证打开新网页(研究53客服登录框)1)。一个窗体加载一个登录页面,登录验证后打开一个新窗体,同时窗体可以最小化到托盘。2)。首...
  • Swordtang
  • Swordtang
  • 2008年04月22日 10:02
  • 2152

非常不错的webbrowser控件教程

http://www.cctry.com/thread-262528-1-1.html 大家好,欢迎大家来到VC驿站。前段时间陆续给大家更新了三套VC实战Http之Post方面的教程: ...
  • net_syc
  • net_syc
  • 2017年02月15日 17:26
  • 920

VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用

   URL帐号密码其它参数SOHU邮箱http://login.sohu.com/chkpwd.phpUserNamePassword 网易通行证http://reg4.163.com/CheckU...
  • lvlvlvlylyly
  • lvlvlvlylyly
  • 2004年05月29日 15:51
  • 4952

VB编程 WebBrowser 控件的属性与方法

WebBrowser的8个方法和13个属性,以及它们的功能:方法 说明  GoBack 相当于IE的“后退”按钮,使你在当前历史列表中后退一项 GoForward 相当于IE的“前进”按钮,使你在当前...
  • surro
  • surro
  • 2007年08月10日 22:57
  • 2685

VS2010 WEBBROWSER控件探索(一)

最近研究如何在可视化程序中进行网络操作,对已有网页进行些许控制,发现webbrowser控件是一个不错的选择,于是开始动手 一:   首先新建一个MFC对话框程序,添加webbrowser控件,其过程...
  • dasgk
  • dasgk
  • 2014年02月19日 11:01
  • 4724

用Winform的WebBrowser开发可设置代理服务器的浏览器

winform浏览器,webbrowser,可设置代理服务器
  • sealeader
  • sealeader
  • 2015年11月22日 10:27
  • 2884
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:2.用WebBrowser控件设计浏览器
举报原因:
原因补充:

(最多只允许输入30个字)