用Visual Basic设计browser及ftp程序(三)

我们也可以按下showdoc button，将可以在htmlshow这个textbox中，将会看到在web1 control的方块区域内显示了microsoft的homepage，在cgiserch textbox中插手communication。

恭喜您乐成了！ ， 在cgiserch _click()中插手以下措施代码： private sub cgiserch _click() web1.navigate " ? p=" + cgi.text end sub 这个行动是用cgi呼吁来查询文件， web browser措施设计 step 2：开始设计措施 --------------------------------------------------------------------- search(执行cgi呼吁) search go(执行前往web address的行动) go to showdoc(显示html文字功效) show document 接着将inet1的各项属性设置如下： accesstype=2-icnamedproxy protocol=4-ichttp proxy=172.18.16.65:8080 在go_click()中插手以下措施代码，通过locationurl这个property读出， 这个行动是连接到所想要去的web server，并将它暂存于字符串a，接着使用openurl()呼吁来将所接收到的html措施代码，是先将web1所连接到的url address， 接下来让我们试试cgi搜寻成果。

将可以在htmlshow这个textbox中看到microsoft homepage的html措施代码，并在web name这个textbox中填入所要去的网址，显示在showdoc这个textbox中， 这样我们就完成了一个小型的web browser，功效我们觉察查询的功效显示在web1方形区域中， 同样的，接着按下go button。

在这里我们将查询呼吁指定传送到yahoo 这个网络搜寻站， step 3：测试措施 执行刚设计完的web browser， 在htmlshow _click()插手以下的措施代码： private sub htmlshow _click() a$ = web1.locationurl showdoc.text = inet1.openurl(a$) end sub 以上措施，这里我们将它设置为， 按下showdoc button，看到查询功效所传回的html措施代码，。

这个method将屏幕连接到web name textbox中所指定的网络站点，并将屏幕显示在web1的方块区域内： private sub go_click() web1.navigate webname.text end sub 以上措施是运用web1的navigate。