大家好我是个新手,写了个列表框拖拽为啥选中好几个文件却只能读取一个 ,能不能一次读取所有拉进去的
Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Dim a
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
a = files(files.Length - 1)
ListBox1.Items.Add(a)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub
不知道是不是哪里有bug