CSDN博客

img net0r

2.用WebBrowser控件设计浏览器

发表于2004/10/24 18:53:00  897人阅读

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

阅读全文
0 0

相关文章推荐

img
取 消
img