VB开发FTP上传下载工具源码免费分享

Const NAME_COLUMN = 0

Const TYPE_COLUMN = 1

Const SIZE_COLUMN = 2

Const DATE_COLUMN = 3

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Dim mbMoving As Boolean

Const sglSplitLimit = 500

Private m_LastNode As Node

Private WithEvents m_FtpConnection As CFtpConnection

Private m_strFile       As String

Private m_lFileSize     As Long

Private Sub Check1_Click()

'设置连接模式

    If Check1.Value Then

    '被动模式

        m_FtpConnection.PassiveMode = True

    Else

        m_FtpConnection.PassiveMode = False

    End If

End Sub

Private Sub CoolBar1_HeightChanged(ByVal NewHeight As Single)

    SizeControls picSplitter.Left

End Sub

Private Sub Form_Load()

    '获得上一次的一些基本参数

    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)

    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)

    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)