12) ドラッグ&ドロップでダウンロード

  DragDropAction



  
' ******************************************************
' ドラッグドロップ
' ******************************************************
Public Sub DragDropAction(frm As Form, x As Single, Source As Control, Target As Object)

    Dim rc As RECT
    Dim strPath As String
    Dim strRet As String
    
    GetClientRect frm.hwnd, rc
    
    Select Case nDrag
        
        Case DRAG_BAR

            If Target.Name = "trvサーバ" Then
                nWidthTreeView = x
            Else
                nWidthTreeView = frm.trvサーバ.Width + x
            End If
            
            With frm.trvサーバ
                .Width = nWidthTreeView
                .Height = frm.ScaleY(rc.Bottom, vbPixels, vbTwips)
            End With
        
            With frm.drgBar
                .Left = frm.trvサーバ.Width
                .Top = 0
                .Height = frm.ScaleY(rc.Bottom, vbPixels, vbTwips)
            End With
    
            With frm.lstローカル
                .Left = frm.trvサーバ.Width + frm.drgBar.Width
                .Top = 0
                .Width = frm.Width - nWidthTreeView - frm.drgBar.Width
                .Height = frm.ScaleY(rc.Bottom, vbPixels, vbTwips)
            End With
        
        Case DRAG_FTPFILE
        
            Dim nodフォルダ As Node
            Set nodフォルダ = frm.trvサーバ.SelectedItem

            If Target.Name = "lstローカル" Then
                strPath = frm.filローカル.Path & "\" & nodフォルダ.Text
                If vbOK = MsgBox("ダウンロードを開始します。よろしいですか?", vbOKCancel) Then
                    strRet = Module1.lbFTPDownload("/" & nodフォルダ.FullPath, strPath)
                    If strRet <> "" Then
                        MsgBox (strRet)
                    Else
                        MsgBox ("ダウンロードが終了しました")
                        LoadListView frm
                    End If
                End If
            End If

    End Select
    
End Sub
  



  リストビューの再表示



  
' ******************************************************
' ローカルファイルリスト作成
' ******************************************************
Public Sub LoadListView(frm As Form)
    
    Dim I As Long
    Dim oFILE As FileListBox
    Dim oLIST As ListView
    
    Dim oITEM As ListItem
    
    Set oFILE = frm.filローカル
    Set oLIST = frm.lstローカル
  
    oFILE.Path = CurDir()
    oFILE.Refresh

    oLIST.ListItems.Clear
    For I = 0 To oFILE.ListCount - 1
        
        Set oITEM = oLIST.ListItems.Add(, , oFILE.List(I))
        oITEM.SubItems(1) = FileLen(oFILE.List(I))
        oITEM.SubItems(2) = FileDateTime(oFILE.List(I))
            
    Next I

End Sub
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ