m34.htm

vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程

        <p>  　　2）在“用户文档”的第一个UserDocument上添加两个Label控件、一个TextBox和一个CommandButton（如图3.1所示）。 
          </span></font></p>
        <p>  　　<a 
      href="file:///C:/WINDOWS/Desktop/artical/pcccontent.html/pcc/98_12/images/12803.gif">（图3.1）。</a> 
          </span></font></p>
        <p>  　　添加如下代码： </span></font></p>
        <p>  　　Private Sub Command1_Click() 
          </span></font></p>
        <p>  　　'核对Text1的文本，如果正确，则转至第二个文档页面。 
          </span></font></p>
        <p>  　　If Text1.Text = "690909" 
          Then </span></font></p>
        <p>  　　Hyperlink.NavigateTo 
          "d:\ActiveX文档\UserDocument2.vbd" </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　End Sub </span></font></p>
        <p>  　　3）从菜单“项目”中选择“添加用户文档”，在工程项目中添加第二个UserDocument，然后在UserDocument2上添加一个CommandButton（如图3.2所示）。 
          </span></font></p>
        <p>  　　<a 
      href="file:///C:/WINDOWS/Desktop/artical/pcccontent.html/pcc/98_12/images/12804.gif">(图3.2)</a> 
          </span></font></p>
        <p>  　　添加如下的代码： </span></font></p>
        <p>  　　Private Sub Command1_Click() 
          </span></font></p>
        <p>  　　'按动按钮，导航至《电子与电脑》杂志主页。 
          </span></font></p>
        <p>  　　Hyperlink.NavigateTo 
          "http:///www.pccomputing.com" </span></font></p>
        <p>  　　End Sub </span></font></p>
        <p>  　　4）编译文档。 </span></font></p>
        <p>  　　5）使用Internet Explorer浏览器测试文档。 
          </span></font></p>
        <p>  　　四．创建FTP浏览器 </span></font></p>
        <p>  　　4.1 概述 </span></font></p>
        <p>  　　FTP是Internet网上最早使用的文件传输程序。FTP的具体含义是文件传输协议（File 
          Transfer Protocol），它是由支持Internet文件传输的各种规程所组成的集合。FTP的作用是使Internet用户能够将文件从一台计算机拷贝到另一台计算机，为实现Internet资源共享提供有力的保障。它不同于NFS(Network 
          File System)和Netbios协议，一旦你要访问另一台计算机中的文件，任何时刻都要运行FTP，而且你只能拷贝文件到自己的机器中时来使用它。FTP是一种客户机/服务器结构，既需要客户机软件，又需要服务器软件。FTP客户机程序在用户计算机上执行，服务器程序在宿主计算机上执行。用户启动FTP客户机程序，通过输入户名和口令同远程主机上的FTP服务器建立连接，一旦成功，在Internet上用户计算机和宿主计算机之间就建立起一条命令链路(控制链路)。 
          </span></font></p>
        <p>  　　4.2 用Visual Basic 5.0创建FTP浏览器的步骤 
          </span></font></p>
        <p>  　　1） 我们将开发具有如下功能的应用程序：使用两个文本框和一个Internet 
          Transfer控件。可在“地址”文本框中输入FTP服务器的URL（Uniform Resource Locator），然后从内容文本框中选择一个文件或目录。如果选择目录，则应用程序就会显示该目录。如果选择文件，则浏览器会将文件存于Windows 
          Temp目录中。当用户按回车键时，“地址”文本框会通过设置Internet Transfer控件的URL属性并调用Execute方法来执行请求。当请求一个特定文件时，OpenURL方法实现相同的动作。然而，当你使用OpenURL方法返回目录的内容时，会返回指明目录内容的HTML源代码。 
          </span></font></p>
        <p>  　　2）在File菜单中单击New Project，以便打开New 
          Project对话框，然后双击“普通exe”图标，即建立一个新项目，并进入开发环境。 </span></font></p>
        <p>  　　3）在窗体上添加一个Label控件、一个TextBox和一个ListBox（如图4.1所示）。 
          </span></font></p>
        <p>  　　<a 
      href="file:///C:/WINDOWS/Desktop/artical/pcccontent.html/pcc/98_12/images/12805.gif">图4.1</a> 
          </span></font></p>
        <p>  　　4）添加如下代码： </span></font></p>
        <p>  　　Private Sub Text1_Click(KeyAscii 
          As Integer) </span></font></p>
        <p>  　　If KeyAscii=Asc(vbCr) 
          Then </span></font></p>
        <p>  　　KeyAscii=0 </span></font></p>
        <p>  　　Text1.SelStart=0 </span></font></p>
        <p>  　　Text1.SelLength=Len(Text1) 
          </span></font></p>
        <p>  　　On Error goTo errOpenURL 
          </span></font></p>
        <p>  　　InetBrowse.URL=Text1.Text 
          </span></font></p>
        <p>  　　InetBrowse.Execute, 
          "Dir" </span></font></p>
        <p>  　　Caption=inetBrowse.URL 
          </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　Exit Sub </span></font></p>
        <p>  　　 ErrOpenURL: </span></font></p>
        <p>  　　 Select Case Err.Number 
          </span></font></p>
        <p>  　　 Case icBadUrl </span></font></p>
        <p>  　　 MsgBox"地址错误，请重新出入！" 
          </span></font></p>
        <p>  　　 Case icConnectFailed,icConnectionAborted,icCannotConnect 
          </span></font></p>
        <p>  　　 MsgBox"无法连入网络！" </span></font></p>
        <p>  　　 Case icInetTimeout 
          </span></font></p>
        <p>  　　 MsgBox"连接超时！" </span></font></p>
        <p>  　　 Case icExecuting </span></font></p>
        <p>  　　 InetBrowse.Cancel </span></font></p>
        <p>  　　If inetBrowse.StillExecuting 
          Then </span></font></p>
        <p>  　　 Caption="不能取消请求！" </span></font></p>
        <p>  　　 Else </span></font></p>
        <p>  　　Resume </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　End Select </span></font></p>
        <p>  　　End Sub </span></font></p>
        <p>  　　当你提交一个请求时，设置错误陷阱很重要，尤其是icExecuting错误。Internet 
          Transfer控件采用异步方式处理所有请求。然而，在同一时间仅能处理一个请求。如果你取消正在进行的请求，那么在重新开始前一定要检查StillExecuting属性。有些请求不能被取消，并且简单地使用Resume语句会导致死循环。 
          </span></font></p>
        <p>  　　Private Sub List1_DblClick) 
          </span></font></p>
        <p>  　　If List1.SelLength Then 
          </span></font></p>
        <p>  　　 If Right(List1.SelText1,1)="/" 
          Then </span></font></p>
        <p>  　　 Text1=Text1 &amp; "/" 
          Left(Text1.SelText,Text1.SelLength-1) </span></font></p>
        <p>  　　On Error goTo errBRowse 
          </span></font></p>
        <p>  　　MsDir=Right(Text1.Len(Text1)-Len(inetBrowse.URL) 
          </span></font></p>
        <p>  　　InetBrowse.Execute,"Dir"&amp;msDir&amp;"/*" 
          </span></font></p>
        <p>  　　Else </span></font></p>
        <p>  　　MsDir=Right(Text1.Len(Text1)-Len(inetBrowse.URL))&amp;"/"&amp;""&amp;msTempDir&amp;List1.SelText 
          </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　Exit Sub </span></font></p>
        <p>  　　ErrBrowse: </span></font></p>
        <p>  　　If Err=icExecuting Then 
          </span></font></p>
        <p>  　　 inetBrowse.Cancel </span></font></p>
        <p>  　　 If inetBrowse.StillExecuting 
          Then </span></font></p>
        <p>  　　 MsgBox"不能取消请求!" </span></font></p>
        <p>  　　Else </span></font></p>
        <p>  　　Resume </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　Else </span></font></p>
        <p>  　　Debug.Print Err&amp;""&amp;Err.Description 
          </span></font></p>
        <p>  　　End If </span></font></p>
        <p>  　　End Sub </span></font></p>
        <p>  　　 FTP命令用于在本地主机和远程主机间或两远程主机间传送文件。为了确保所传送的文件具有唯一的文件名，可使用一些选项来管理文件名，以便于适应接收主机的需要。用户能通过使用“anonymous”登录进行公共文件访问。 
          </span></font></p>
        <p>  　　 Internet Transfer控件的Books 
          Online文档展示用于创建FTP浏览器的程序片段，这里就不再详细叙述了。 </span></font>
        <p align="right">  　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　<br>
          <br>
          <br>
           </b></font></p>
      </td>
    </tr>
  
  </table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>