文章編號: 306969 - 上次校閱: 2007年5月13日 - 版次: 3.5

如何提供 Visual Basic 2005 或 Visual Basic.NET 應用程式中的檔案拖曳並放功能

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
本文章的有 Microsoft Visual C#.NET] 版本請參閱 307966? (http://support.microsoft.com/kb/307966/ ) 。

在此頁中

全部展開 | 全部摺疊

結論

本文逐步程序會示範如何提供 Microsoft Visual Basic 2005 或 Microsoft Visual Basic.NET 應用程式中的檔案拖曳並放功能。清單方塊 控制項作為目的地的檔案和拖程序。
回此頁最上方

需求

下列清單列出建議的硬體、 軟體、 網路基礎結構及您需要的服務套件：
  • Visual Basic 2005 或 Visual Basic.NET
本文假設您已熟悉下列主題：
  • Windows Form 列示方塊 控制項
  • Windows Form 事件處理
回此頁最上方

若要建置範例的步驟

清單方塊 控制項提供您需要處理的兩個-拖事件: DragEnter 和 DragDrop。DragEnter 事件發生於您拖曳控制項的範圍內物件，而且用來判斷正在拖曳的物件是一個您想要允許卸除在控制項上。您處理這個事件，在其中一或多個檔案都拖曳至控制項的情況。這可讓物件拖曳到依上被拖曳的物件在控制項上時，會顯示適當的圖示。DragDrop 事件發生於正在拖曳該物件已釋放在控制項上。您處理這個事件來擷取物件。資料 物件用來擷取資料。

資料 物件 GetData 方法會傳回包含已拖曳至 清單方塊 控制項的檔案完整路徑名稱的字串陣列。您可以使用這個檔案的路徑資訊來執行檔案上所需的任何作業。例如使用 [System.IO 命名空間中的類別開啟和讀取該檔案將將檔案移動或複製檔案到新位置。這個範例只新增拖曳至 清單方塊 控制項的檔案完整路徑。

提供檔案拖曳並放功能，在 Visual Basic 2005 或 Visual Basic.NET 應用程式中的，請依照下列步驟執行：
  1. 在 Visual Basic 2005 或 Visual Basic.NET 中建立新的 Windows Form 應用程式。預設會建立 Form1。
  2. 使用工具箱將 清單方塊 控制項加入至 Form1。
  3. 在 [屬性] 視窗中變更 [為 True 以容許物件拖曳至控制項上的 [清單方塊 控制項的 [AllowDrop 屬性]。
  4. 在 [方案總管] 中以滑鼠右鍵按一下 Form1，然後按一下 [檢視程式碼]。
  5. 若要處理 DragEnter 事件，加入 Windows Form 設計工具會在 Form1 類別中產生的程式碼區段下面下列方法： 
        Private Sub ListBox1_DragEnter(ByVal sender As Object, _
                                   ByVal e As System.Windows.Forms.DragEventArgs) _
                                   Handles ListBox1.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.All
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
  6. 若要處理 DragDrop 事件，將下列方法加入至 Form1 類別緊接在步驟 5 中新增的方法： 
        Private Sub ListBox1_DragDrop(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.DragEventArgs) _
                                  Handles ListBox1.DragDrop
        Dim s() As String = e.Data.GetData("FileDrop", False)
        Dim i As Integer
        For i = 0 To s.Length - 1
            ListBox1.Items.Add(s(i))
        Next i
    End Sub
  7. 建置並執行專案。
  8. 將一或多個檔案拖曳從桌面或另一個資料夾來 列示方塊 控制項。注意檔案的完整路徑加入至 清單方塊 控制項。
回此頁最上方

?考

如需詳細資訊請造訪下列 Microsoft 開發 o 人 h 員 ? 工 u 具 ? 網路 (MSDN) 網站]：
http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.dragenter(vs.71).aspx (http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.dragenter(vs.71).aspx)

http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.dragdrop(vs.71).aspx (http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.dragdrop(vs.71).aspx)
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB306969 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：306969? (http://support.microsoft.com/kb/306969/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。