2.2 程序设计
（1）创建程序界面。单击"File"菜单下的"New Project"命令，显示"New Project"对话框如图二，单击"Standard.EXE"图标，创建一个新的工程,将工程文件名设置为Webbrowser.vbp 。
 图2 Visual Basic 6.0的新建工程界面 |
在工程文件创建以后，系统自动地创建了一个窗体Form，默认的窗体文件文件名为Form1.frm。在窗体上添加所需的控件，适当调整它们的大小和位置。
(2) 设置窗体界面中控件的属性。控件的属性设置见表1。在设置过程中，一定要确认所选中的控件，然后在逐一设置该控件的属性。
表1 控件属性设置
| 控件类型 | 属性和属性值 | 功能描述 | | TextBox | Name属性设置为CGISearchText属性设置为空 | 输入CGI命令 | | TextBox | Name属性设置为webnameText属性设置为空 | 显示html文字结果 | | TextBox | Name属性设置为htmlshowText属性设置为空 | 输入要前往的网页地址 | | Label | Name属性设置为Label1Caption属性设置为Search | 用来描述操作 | | CommandButton | Name属性设置为SearchCaption属性设置为Search | 执行CGI命令 | | CommandButton | Name属性设置为GoCaption属性设置为Go | 执行前往网页地址的动作 | | CommandButton | Name属性设置为ShowDocCaption属性设置为ShowDoc | 执行显示html文字结果 | | *Inet | Name属性设置为Inet1
Accesstype属性设置为2-icnamedproxy
Protocol属性设置为4-icHTTP
Proxy属性设置为192.168.4.2:8080 | 实现通信和网络操作 | | *Web browser | Name属性设置为Web1 | 用来处理WEB页信息 |
其中带有*号的控件是在工具箱中看不到的控件，需要从部件中添加。添加的方法如下：
选择"Project"菜单栏中的"Components" 菜单命令，显示对话框如图3。选中"Controls"选项卡中的两个选项后，单击"确定"按钮，在工具箱中就添加了所需的控件。
 图3 选择组件对话框 |
设计完成后的程序窗体界面如图4。
 图4 Web Browser系统设计界面 |
（3）编写程序代码。在Go_Click()中加入以下程序代码，这个动作是连接到所选择的网页服务器，并将屏幕显示在web1的方块区域内。
Private Sub Go_Click()
web1.Navigate webname.Text
End Sub |
程序中运用web1的Navigate方法，该方法将屏幕连接到webname 文本框控件中所指定的网络站点。
在htmlshow _Click()加入以下的程序代码：
Private Sub htmlshow _Click()
a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub |
该程序先将web1所连接到的URL 地址，通过LocationURL属性读出，并将它暂存于字符串a。接着使用OpenURL()命令将所接收到的HTML程序代码显示在ShowDoc 文本框控件中。
在CGIserch _Click()中加入以下程序代码：
Private Sub CGIserch _Click()
Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text
End Sub |
该程序用CGI命令来查询文件，将查询命令指定传送到sina这个网络搜寻站，这样就完成了一个小型的Web Browser。
2/2 首页 上一页 1 2 |
