提示：
@ 在本示例程序的具体制作过程中，除了以上的这些能够实现基本功能的代码外，还要添加一些必不可少的辅助代码。
由于篇幅的关系，在这里就不一一的加以叙述了，请读者参看下面的清单自己添加。
程序清单
Private Sub brwWebBrowser_DownloadComplete()
Me.Caption = brwWebBrowser.LocationName
'设置标题
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
'设置标题
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
End Sub
Private Sub cboAddress_Click()
timTimer.Enabled = True
'设置计时器有效状态
brwWebBrowser.Navigate cboAddress.Text
'读取指定网络信息
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
cboAddress_Click
'激活Private Sub cboAddress_Click()事件
End If
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
timTimer.Enabled = True
'设置计时器的有效状态
Select Case Button.Key
Case "Back"
brwWebBrowser.GoBack
'返回
Case "Forward"
brwWebBrowser.GoForward
'前进
Case "Refresh"
brwWebBrowser.Refresh
'刷新
Case "Home"
brwWebBrowser.GoHome
'回到主页
Case "Search"
brwWebBrowser.GoSearch
'查找
Case "Stop"
timTimer.Enabled = False
'设置计时器有效状态
brwWebBrowser.Stop
'停止
Me.Caption = brwWebBrowser.LocationName
'设置程序标题
End Select
End Sub
4．运行
作完以上的工作后，选择工具栏上的“保存”按钮来存储文件，然后在键盘上按下功能键F5运行程序，结果如图8-29所示。
图8-29 程序运行结果
8.4 创建个人网页
Visual Basic 的一个显著特点就是网络功能的增强，不但体现在对ActiveX技术的支持上，还表现在直接的网络程序设计上，比如，利用Visual Basic 可以很轻松的制作网页，而且可以存储为HTML格式。
下面就以一个示例程序来说明，利用Visual Basic 6如何来创建一个个人网站，具体的程序设计步骤如下所示：
1．开始工作
首先激活Visual Basic 6应用程序，在Visual Basic 6的集成开发环境中就会弹出一个如图8-30所示的New Project对话框。
图8-30 New Project对话框
在New Project对话框中选择“DHTML应用程序”选项。
单击“打开”按钮，在Visual Basic 6中就新建了一个网络应用程序项目，同时打开了一个空白的窗体。
窗体的属性设置如下所示：
Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} DHTMLPage1
AsyncLoad = 0
id = "DHTMLPage1"
ShowBorder = -1
ShowDetail = -1
AbsPos = 0
HTMLDocument = "DHTMLPage1.dsx":0000
End
2．添加文本和控件
如果读者有过网页开发经验的话，那么对以下的步骤就不会陌生了，在Visual Basic 6中开发网页与普通的应用程序设计没有什么两样，都是添加控件，然后设置控件属性。
如果读者没有什么特别的要求，一般在Visual Basic 中设计网页不用另外添加程序代码。
提示：
@ 在本示例程序中，要建立一个个人网站，所以要向窗体上添加所需的图像和文本资料。
为此，在程序设计的过程中，向窗体上添加几行简单的文本、一个图像显示控件和四个超级连接控件。
添加控件和文本后的窗体如图8-31所示。
图8-31 添加控件和文本后的网页设计窗体
在窗体上添加的四个超级连接控件的属性设置如下所示：
(Id) Hyperlink1
host =home.microsoft.com:8
hostname =home.microsoft.com
href =http://home.microsof.com
name =Hyperlink1
port =80
scrollLeft =0
scrollTop =0
tabIndex =0
(Id) Hyperlink2
host =www.tsinghua.edu.cn:80
hostname =www.tsinghua.edu.cn
href =http://www.tsinghua.edu.cn
name =Hyperlink2
port =80
scrollLeft =0
scrollTop =0
tabIndex =0
(Id) Hyperlink3
href =http:
name =Hyperlink3
pathname =http:\\www.pku.edu.cn
port =0
scrollLeft =0
scrollTop =0
tabIndex =0
(Id) Hyperlink4
host =www.fanso.con:
hostname =www.fanso.com
href =http://www.fanso.com
name =Hyperlink4
port =80
scrollLeft =0
scrollTop =0
tabIndex =0
超级连接控件的属性用户可以通过单击属性列表框中Custom栏右侧的
图8-32 超级连接控件的自定义属性设置对话框
在窗体上添加的图像显示控件的属性设置如下所示：
(Id) Image1
border =0
height =165
hspace =0
isMap =False
loop =1
name =Image1
scrollLeft =0
scrollTop =0
src =file:///c:/my document/
Start =fileopen
tabIndex =0
vspace =0
width =280
同样，图像显示控件的属性用户可以通过单击属性列表框中Custom栏右侧的
图8-33 图像显示控件的自定义属性设置对话框
3．启动Internet Explorer
完成以上的工作后，就可以存储文件，在键盘上按下功能键F5运行程序了，系统会自动的启动Internet Explorer来浏览设计完成的网页，其中网页的源代码如下所示：
欢迎来到我的个人网页
name=Hyperlink1>Visual Basic
创建的个人网站，它的效果可以由用户自由设置，可以插入动画、图片、文本和ActiveX控件等。
name=Hyperlink2>清华大学
useMap="" width=247>
程序运行过程中浏览的网页如图8-34所示。
图8-34 程序运行过程中浏览的网页
在程序运行过程中，用户可以通过单击网页上的四个超级连接来访问相应的站点。
比如单击“清华大学”链接，Internet Explorer就会根据用户程序的设置访问清华大学的网站了，如图8-35所示。
图8-35 在程序运行中访问“清华大学”网页