12、利用Visual Basic进行互联网组件开发

利用Visual Basic进行互联网组件开发

1. 创建FTP浏览器

1.1 开发背景与问题

Visual Basic的Internet Transfer控件在线帮助展示了创建FTP浏览器所需的组件，但未将这些组件整合为一个可运行的应用程序。该控件是异步的，事件和错误处理的交互是使用该控件最困难的部分。

1.2 界面设计与功能概述

使用两个文本框和一个Internet Transfer控件创建了一个简单的FTP浏览器。在地址文本框输入FTP服务器的URL，然后从内容文本框中选择文件或目录。若选择目录，应用程序将显示该目录；若选择文件，浏览器会将文件保存到Windows临时目录。

1.3 代码实现

1.3.1 地址文本框按键事件处理

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(vbCr) Then
        'Eat keystroke
        KeyAscii = 0
        'Select text
        txtAddress.SelStart = 0
        txtAddress.SelLength = Len(txtAddress)
        On Error GoTo errOpenURL
        'Set FTP address to view
        inetBrowse.URL = txtAddress
        'Get directory
        inetB