Drag and drop
Posted: Fri Apr 30, 2010 4:27 pm
Hello, i wanted to know how to drag and drop an item and listbox shows dropped file name(not the path, only name). Thanks.
First off welcome to the site cooll;
This code will allow you to drag-drop items into the listbox and show only the filename of each file. To make this code work you first need to select your "ListBox" control and change its "AllowDrop" propertie to 'True' and then add the following code.
Code: Select all
Hope that helps cooll;Private Sub ListBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each filename As String In draggedFiles
ListBox1.Items.Add(FileIO.FileSystem.GetFileInfo(filename).Name)
Next
End If
End Sub