How to Create a Drag Drop with ListBox Using VB.Net

Hello guys, today I wanna share how to create a drag and drop with listbox using VB.net. Just copy and paste the following code under public class.

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

Then In order for all the maic drag and drop to occur or happen ?

Just Go to the property bar of the ListBox And Change Allow Drop From FALSE TO TRUE

AllowDrop:True

This is a video to help you out ....