VB.NET还是比较常用的，于是我研究了一下VB.NET ListBox控件，在这里拿出来和大家分享一下，希望对大家有用。在windows中拖放通常是复制或移动文件，windows完全支持该功能，而且对许多用户来说这也是操作文件的优选方式。除此之外，用户已经习惯了把文件拖动到一个程序来打开文件的方式，像拖动一个doc文件到word来打开。

在这个例子中用从windows资源管理器拖来的文件来操作VB.NET ListBox控件。向窗体中添加一个VB.NET ListBox控件，并设置其AllowDrop属性为True，并添加如下代码：

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  
End If  
End Sub  
 
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop  
If e.Data.GetDataPresent(DataFormats.FileDrop) Then  
Dim MyFiles() As String  
Dim i As Integer  
 
' Assign the files to an array.  
MyFiles = e.Data.GetData(DataFormats.FileDrop)  
' Loop through the array and add the files to the list.  
For i = 0 To MyFiles.Length - 1  
ListBox1.Items.Add(MyFiles(i))  
Next  
End If  
End Sub 

你可能已经注意到了DragEnter事件中的Effect属性被设置成DragDropEffects.All。因为文件本身并不是真的就被复制或移动了，因此源控件设置成哪个AllowedEffects并没有关系，所以指定All对任何FileDrop都可以。

在上面的例子中FileDrop格式包含了每个被拖动文件的全路径。

【编辑推荐】

1. 深入分析VB.NET条件语句中的两类
2. 五大类VB.NET运算符全面介绍
3. 全面讨论VB.NET申明Windows API函数
4. 剖析VB.NET平台调用是如何执行操作
5. 分享个人总结VB.NET多线程