其中带有*号的控件是在工具箱中看不到的控件，需要从部件中添加。添加的方法如下：
选择"Project"菜单栏中的"Components" 菜单命令，显示对话框如图3。选中"Controls"选项卡中的两个选项后，单击"确定"按钮，在工具箱中就添加了所需的控件。
设计完成后的程序窗体界面如图4。
图4 Web Browser系统设计界面
（3）编写程序代码。在Go_Click()中加入以下程序代码，这个动作是连接到所选择的网页服务器，并将屏幕显示在web1的方块区域内。
Private Sub Go_Click()
web1.Navigate webname.Text
End Sub
程序中运用web1的Navigate方法，该方法将屏幕连接到webname 文本框控件中所指定的网络站点。 web1.Navigate webname.Text
End Sub
在htmlshow _Click()加入以下的程序代码：
Private Sub htmlshow _Click()
a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub
该程序先将web1所连接到的URL 地址，通过LocationURL属性读出，并将它暂存于字符串a。接着使用OpenURL()命令将所接收到的HTML程序代码显示在ShowDoc 文本框控件中。a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub
在CGIserch _Click()中加入以下程序代码：
Private Sub CGIserch _Click()
Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text
End Sub
该程序用CGI命令来查询文件，将查询命令指定传送到sina这个网络搜寻站，这样就完成了一个小型的Web Browser。Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text
End Sub
2.3测试程序
远行设计完的Web Browser程序，在web name文本框中输入所要的网址，如输入http://www.baidu.com。单击"Go Button"按钮，将会在web1 控件的方块区域内显示了baidu的主页。单击"ShowDoc"按钮，baidu的主页的HTML程序代码则显示在htmlshow文本框中。
接下来试试CGI搜寻功能。如在CGIserch 文本框中输入"图书"，然后单击"Serch"按钮，则查询的结果被显示在web1方形区域中。同样的也可以单击"ShowDoc"按钮，则将查询结果所传回的HTML程序代码显示在htmlshow文本框中显示。这样一个简单的WEB浏览器的基本功能就实现了。
3、FTP程序设计
前面提到Internet Transfer control可以提供FTP 协议，下面介绍用 Internet Transfer control来设计一个可以连接FTP Server的客户端程序，并将FTP Server上的bbb.txt文件下载到本地端的程序。
(1) 使用同样的方法建立一个新的工程，将工程文件名设置FTPclient.vbp ，默认的窗体文件名为FORM1.FRM。部分控件的属性设置见表2：
表2 控件属性设置
| 控件类型 | 属性和属性值 | 功能描述 |
| TextBox | Name属性设置为FTPgetfileText属性设置为空 | 输入传输的文件名 |
| CommandButton | Name属性设置为FTPgetCaption属性设置为FTPget | 进行文件传输操作 |
| CommandButton | Name属性设置为FTPLinkCaption属性设置为FTPLink | 进行文件传输连接操作 |
| Inet | Name属性设置为Inet1 Accesstype属性设置为2-icnamedproxy Protocol属性设置为4-icFTP Proxy属性设置为192.168.4.2:8080 Username属性设置为"wnaglichen"password="2522510" |
实现通信和网络操作说明：在此将Username及password设置好，当Login进入FTP Server时，Server设计完成后的程序窗体界面如图5。 |
（2）编写程序代码。
在FTPLink _Click()中输入以下程序代码：
Private Sub FTPLink _Click()
Inet1.excute "FTP 192.168.4.20"
End Sub
Execute是Internet Transfer control提供的一个用来执行FTP公用程序的方法，可以在它的后面加入FTP的命令，这样就可以使用任何熟悉的FTP公用程序来完成工作。笔者的FTP Server地址是192.168.4.20，所以在FTP命令后面填入这个地址。Inet1.excute "FTP 192.168.4.20"
End Sub
在FTPget _Click()中输入以下程序代码：
Private Sub FTPLink _Click()
Inet1.excute "GET aaa.txt c:\bbb.txt"
End Sub
该程序可实现将FTP Server上的aaa.txt文件传送到客户端。Inet1.excute "GET aaa.txt c:\bbb.txt"
End Sub
执行FTPclient程序，单击"FTPLink"按钮，连结到 FTP Server；单击"FTPget"按钮，取回文件。此时，可以发现在本地硬盘C:\目录下面看到多了一个bbb.txt的文件，这个文件就是从远程服务器中下载到本地的文件。这也就说明，一个简单的文件传输程序设计成功了。
结论
通过上面的阐述，大家可以了解在VB中开发Web程序的具体流程。随着网络的普及和计算机的发展、文件传输速度的提高，一些高质量的Web程序也将随之产生。本文所介绍的程序是笔者在此方面做的一点尝试，已经调试成功。
[1] [2]
