Form1

  ソースコード



  

' ******************************************************
' 初期設定
' ******************************************************
Private Sub Form_Load()

    Me.txtパスワード.PasswordChar = "*"
    Me.cmd解除.Enabled = False
    Me.grd一覧.AllowUserResizing = flexResizeColumns

    Call lbCenterWindow(Me)

End Sub

' ******************************************************
' 接続
' ******************************************************
Private Sub cmd接続_Click()

    Me.cmd接続.Enabled = False

    Dim ret As Boolean

    ret = Module1.lbFTPConnect( _
            Me.txtサーバ.Text, _
            Me.txtユーザ.Text, _
            Me.txtパスワード.Text, _
            True)
            
    If Not ret Then
        Call MsgBox("接続に失敗しました")
        Me.cmd接続.Enabled = True
        Exit Sub
    End If

    Me.cmd解除.Enabled = True
    
    cmd一覧取得_Click
    cmdツリー表示_Click

End Sub

' ******************************************************
' ツリー表示用フォームをロード
' ******************************************************
Private Sub cmdツリー表示_Click()

    cmd一覧取得_Click

    If Me.cmd接続.Enabled = False Then
        Form2.Show vbModal
    End If

End Sub

' ******************************************************
' 一覧取得
' ******************************************************
Private Sub cmd一覧取得_Click()

    Call Module1.lbFTPEnum("", "*.*", grd一覧)
    Me.grd一覧.ColWidth(0) = 500
    Me.grd一覧.ColWidth(1) = 2000
    Me.grd一覧.ColWidth(2) = 0
    Me.grd一覧.ColWidth(3) = 0
    Me.grd一覧.ColWidth(4) = 2000
    Me.grd一覧.ColWidth(6) = 0

End Sub

' ******************************************************
' 解除
' ******************************************************
Private Sub cmd解除_Click()

    Me.cmd解除.Enabled = False
    
    Call Module1.lbFTPDisconnect
    
    Me.cmd接続.Enabled = True

End Sub

  










  infoboard   管理者用   





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ