Imports System.IO

Public Class frmOrderFiles
    Public fileResults As List(Of String)
    Public oTitle As String

    Private Sub frmOrderFiles_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        OpenFileDialog1.Title = oTitle
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            ListView1.Items.Clear()
            For Each file As String In OpenFileDialog1.FileNames
                Dim item As New ListViewItem(Path.GetFileName(file))
                item.Tag = file ' Speichere den vollständigen Pfad im Tag
                ListView1.Items.Add(item)
            Next
        Else
            Me.Close()
        End If
    End Sub

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
        fileResults = New List(Of String)
        For Each item As ListViewItem In ListView1.Items
            fileResults.Add(item.Tag.ToString())
        Next
        Me.Close()
    End Sub

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
        Me.Close()
    End Sub

    Private Sub ListView1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDown
        ' Starte den Drag & Drop-Vorgang, wenn ein Item ausgewählt ist
        If ListView1.SelectedItems.Count > 0 Then
            ListView1.DoDragDrop(ListView1.SelectedItems(0), DragDropEffects.Move)
        End If
    End Sub

    Private Sub ListView1_DragOver(sender As Object, e As DragEventArgs) Handles ListView1.DragOver
        ' Erlaube das Verschieben von Items innerhalb der ListView
        e.Effect = DragDropEffects.Move
    End Sub

    Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.DragDrop
        ' Füge das Item an der neuen Position ein und entferne es von der alten Position
        Dim point As Point = ListView1.PointToClient(New Point(e.X, e.Y))
        Dim hoverItem As ListViewItem = ListView1.GetItemAt(point.X, point.Y)
        Dim draggedItem As ListViewItem = CType(e.Data.GetData(GetType(ListViewItem)), ListViewItem)

        If hoverItem Is Nothing Then
            ' Wenn kein Item unter dem Mauszeiger ist, füge das Item am Ende hinzu
            ListView1.Items.Add(DirectCast(draggedItem.Clone(), ListViewItem))
        Else
            ' Füge das Item vor dem hoverItem ein
            ListView1.Items.Insert(hoverItem.Index, DirectCast(draggedItem.Clone(), ListViewItem))
        End If

        ' Entferne das ursprüngliche Item
        ListView1.Items.Remove(draggedItem)
    End Sub
End Class