VB教程-自制网页浏览器

小叮当：小蘑菇，明天我就要回公司上班了，今天想学习一点什么？

小蘑菇：能不能教我做一个好玩的游戏？最好像帝国II那样的。

小叮当：又在说不切实际的，即使我有这个水平，时间也来不及呀。对了，看你正在上网浏览，不如教你做一个浏览器如何？

小蘑菇：那好吧，也只能这样了。不过别太复杂，省得我看起来头晕，呵呵。

小叮当：你想让我教你做复杂的我还没有这么多时间呢！言规正传，用VB制作网页浏览器时候需要使用到WebBrowser这个控件，它就是IE浏览器的窗口。简单的说，任何可以在IE浏览器中显示的文档都可以用WebBrowser控件显示，比如网页、本地HTML文件等。下面就先来定制浏览器所需要的控件。

1、新建一个工程，将Form1的Caption属性设置为“小叮当的浏览器”。

2、然后右击工具箱并选中“Microsoft Internet Controls”控件将其添加到工具箱中。这时工具箱中会多了一个地球图标，这所代表的控件就是WebBrowser。

3、将WebBrowser控件放置到Form1窗口中，由于在运行程序之后无法调整这个控件的大小，所以应该根据窗口的大小来调整它的大小，使其能够覆盖到大部分窗口区域。

4、在Form1窗口中添加1个CommandButton控件，将它的Caption属性分别设置为“打开文件”。

5、在Form1窗口中添加一个Common Dialpg控件，用于选择本地硬盘中的HTML文件。

6、添加一个ComboBox控件，用来输入和显示网页地址。

7、右击工具箱并将Microsoft Windows Common Control控件添加到工具箱中，接着添加一个StatusBar控件和一个ProgressBar控件。
所有控件添加完成之后如图所示。



接着我们来看看程序的代码部分：

1、双击Form1窗口，并输入下列代码：

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Top = 0 /设置URL地址栏起始位置
Combo1.Left = 0
WebBrowser1.Top = Combo1.Top ＋ Combo1.Height /设置页面浏览区位置
WebBrowser1.Left = 0
Form_Resize
StatusBar1.Style = sbrSimple
ProgressBar1.Zorder
End Sub

2、选择Form1的“Resize”并输入下列代码：

Private Sub Form_Resize()
On Error GoTo a
Combo1.Width = Form1.Width － 100 /URL地址栏宽度随窗口大小调整而变化
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
3、双击Combo1控件，

并输入下列代码：

Private Sub Combo1_Click()
WebBrowser1.Navigate Combo1.Text /打开指定网址
End Sub

4、选择Combo1控件的“KeyDown”并输入下列代码：

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 /如果输入网址不是以“http://”开头则自动添加
Combo1.Text = "http://"＋ Combo1.Text
End If
WebBrowser1.Navigate Combo1.Text /URL地址栏保存的网站地址
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

5、选择 WebBrowser1控件的“DownloadBegin”事件并输入下列代码：

Private Sub WebBrowser1_DownloadBegin()
StatusBar1.SimpleText = "载入中…" /下载开始时状态栏显示“载入中…”
End Sub

6、选择 WebBrowser1控件的“DownloadComplete”事件并输入下列代码：

Private Sub WebBrowser1_DownloadComplete()
StatusBar1.SimpleText = "下载完成" /下载完成时状态栏显示“下载完成”
ProgressBar1.Value = 0
End Sub

7、选择 WebBrowser1控件的“ProgressChange”事件并输入下列代码：

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
8、选择 WebBrowser1控件的“TitleChange”事件并输入下列代码：

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Combo1.Text = WebBrowser1.LocationURL
End Sub

9、双击CommandButton1控件并输入下列代码：

Private Sub Command1_Click()
CommonDialog1.ShowOpen /激活打开文件对话框选择文件
WebBrowser1.Navigate CommonDialog1.FileName
End Sub

小蘑菇：我来试试，看看能不能浏览电脑爱好者网站。果然可以正常显示，哈哈，虽然界面丑陋了一些，但是基本功能还是可以实现的呢，其余的美容工作就交给我来搞定吧。



小叮当：我教你的只是最基本的一些编程思想而已，别以为我不会美容界面，只是想给你一个机会锻炼一下而已。

小蘑菇：放心吧，叮当姐姐，我一定会好好学习，等毕业之后也要像你一样成为专业的程序员，到时候咱们联手制作出一些重量级的软件

，那就赚翻了，哈哈哈哈。

小叮当：……

各位朋友，在这一个星期之内教给了小蘑菇七个实例，你是否也从中学到一二呢？也许你会对小蘑菇说的制作重量级软件有些半信半疑，不过那也没准，当初比尔不也就是用Basic起家的吗？何况现在我们使用的是功能更为强大的VB呢？实在不行，还有一个强力后盾——叮当姐姐在此，所以大家就等着小蘑菇的软件问世吧，到时候一定要多多支持哟！

本文来自-编程入门网：/VBjc/qrt/qr7.htm