vb2005 从资源管理器拖放文件到控件中？

[scjypzh]

网上找了很多，但都只能从窗体控件到控件的拖动能够成功，而从资源管理器到控件的拖动却怎么也不行，网上的例子都讲到有，但却不能实现．
api函数用过能行,但是太复杂了,难道就不能用vb2005里面的那几个事件来用吗?
帮助文档和网上看的都写的可以,但调试的时候就是不行.
我还跟踪了拖放有关的事件,当从资源管理器拖动文件到窗体控件中时,那几个事件根本就没有触发,这是怎么回事?

这是我的代码:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListBox1.AllowDrop = True
End Sub

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 = CType(e.Data.GetData(DataFormats.FileDrop), String())
' 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

请高人指点一二呀!
一定是用vb2005写的哈,有调试通过的源代码最好啊.

[scjypzh]

会不会是操作系统的原因？我用的是vista操作系统．
上面的我都试了，还是不行啊？

[沐NeMo]

呵呵。那你就把程序拿到win2000 winxp系统运行。试一试看看啊。
我也没有在vista用过。

[feiyun0112]

ListBox1_DragEnter里看看e.Data.GetFormats()

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[沐NeMo]

设置TxtBoxMain文本控件：AllowDrop = True

Private Sub TxtBoxMain_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TxtBoxMain.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
End If
End Sub

Private Sub TxtBoxMain_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TxtBoxMain.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Me.TxtBoxMain.Clear()
Dim MyFiles() As String
MyFiles = e.Data.GetData(DataFormats.FileDrop)
Me.TxtBoxMain.Text = My.Computer.FileSystem.ReadAllText(MyFiles(0), System.Text.Encoding.Default)
End If
End Sub

我的可以啊。

[沐NeMo]

'设置ListBoxFF控件的：AllowDrop = True 

 Private Sub ListBoxFF_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBoxFF.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Me.ListBoxFF.Items.Clear()
            Dim MyFiles() As String
            Dim i As Integer
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            For i = 0 To MyFiles.Length - 1
                If String.Equals(Path.GetExtension(MyFiles(i)).ToLower, ".xls") Then
                    Me.ListBoxFF.Items.Add(MyFiles(i))
                End If
            Next
        End If
    End Sub

    Private Sub ListBoxFF_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBoxFF.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

我的这个也可以啊。只可以拖放excel文件到ListBox里面。

[沐NeMo]

上面的是我的程序：
http://blog.csdn.net/linjimu/archive/2008/03/01/2137690.aspx
我的空间里面有许多拖放操作的文章，内容：
ListBox-ListView-TextBox-这几个控件之间的拖放操作。
拖放自定义数据等都有涉及到。