Drag and Drop (VBNet)

(Example to mix and match)

Private Sub lstEntries_DragDrop(sender As Object, e As DragEventArgs) Handles lstEntries.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim MyFiles() As String
            Dim i As Integer
            Dim FileItem As New ListViewItem

            MyFiles = e.Data.GetData(DataFormats.FileDrop)

            ribTabEditApp.Visible = True
            Ribbon1.ActiveTab = ribTabEditApp
            txtAppPath.Text = MyFiles(i)
            txtAppStartDir.Text = My.Computer.FileSystem.GetParentPath(MyFiles(i))
            Try
                picAppIcon.Image = System.Drawing.Icon.ExtractAssociatedIcon(txtAppPath.Text).ToBitmap
            Catch
            End Try

            For i = 0 To MyFiles.Length - 1
                Debug.Print(Path.GetDirectoryName(MyFiles(i)))
                FileItem.Text = Path.GetFileNameWithoutExtension(MyFiles(i))
                Debug.Print(MyFiles(i))
            Next
        End If
    End Sub


    Private Sub lstEntries_DragEnter(sender As Object, e As DragEventArgs) Handles lstEntries.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

 

Get the file icon and display in Listview

 Try
    ImgList.Images.Add(sApp, System.Drawing.Icon.ExtractAssociatedIcon(sAppPath))
 Catch
    ImgList.Images.Add(sApp, My.Resources.shieldIconimageres_78_32x32)
End Try
Dim lvItem As ListViewItem = lstEntries.Items.Add("list item text", sApp)


.