1. 前言

今天在配置cppunit的附加依賴項的時候， 需要輸入相應的附加依賴項的檔名， 這個很費勁， 我們又不想自己手工一個個的copy， 就希望能夠找到一種方法可以直接獲取到我們的檔名

2. 處理思路

我們這裡想到了vb.net， 利用他的拖拽功能， 直接獲取相應的檔名稱

3. 實現效果

4. 注意點

1. 我們這裡選用的是listview 控制元件， 順手拖過來的
2. 他的view 屬性一定改為List，這樣檔名可以全部顯示
3. AllowDrop 屬性改為True， 允許拖拽

5. 程式碼

Public Class Form1
    ' 拖拽進入， 清空資料
 

    Private Sub FileLists_DragEnter(sender As Object, e As DragEventArgs) Handles FileLists.DragEnter
        FileLists.Items.Clear()
        e.Effect = DragDropEffects.All
    End Sub

    ' 拖拽完成， 顯示資料
    Private Sub FileLists_DragDrop(sender As Object, e As DragEventArgs) Handles FileLists.DragDrop
        Dim
 
 MyFiles() As String
        MyFiles = e.Data.GetData(DataFormats.FileDrop)
        For i = 0 To MyFiles.Count - 1
            Dim Items() As String
            Items = MyFiles(i).Split("\\")
            FileLists.Items.Add(Items(Items.Count - 1))
        Next
    End Sub

    ' 雙擊資料， 實現複製資料到剪下板， 另外注意換行使用 vbCrLf, C 中的 "\n" 不管用
 

    Private Sub FileLists_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles FileLists.MouseDoubleClick
        Dim strData As String

        strData = ""
        With FileLists
            For i = 0 To .Items.Count - 1
                strData += .Items.Item(i).Text + vbCrLf
            Next
        End With
        Clipboard.SetDataObject(strData)
    End Sub
End Class