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
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)
.