Images aus einer ListView + Ordner löschen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Morrison.

    Images aus einer ListView + Ordner löschen

    Hi, ich möchte gerne eine Datei (in meinem Fall Images) aus einer ListView löschen.
    Allerdings sollen diese Dateien auch aus dem realen Ordner auf der Festplatte gelöscht werden!

    Ich habe es nur hinbekommen, dass die Datei in dem angezeigten Ordner des Programmes verschwindet.

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Try
    6. FolderBrowserDialog1.ShowDialog()
    7. For Each item As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly)
    8. ImageList1.Images.Add(New Bitmap(item, False).GetThumbnailImage(100, 100, Nothing, IntPtr.Zero))
    9. ListView1.Items.Add(My.Computer.FileSystem.GetName(item), ImageList1.Images.Count - 1)
    10. ListBox1.Items.Add(item)
    11. Next
    13. Catch ex As Exception
    15. End Try
    16. End Sub
    18. Private Sub ListView1_ItemSelectionChanged(sender As Object, e As ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
    19. Dim x As Integer = Nothing
    20. If e.IsSelected Then
    21. Try
    22. ListBox1.SelectedIndex = ListView1.SelectedIndices(0)
    23. Catch ex As Exception
    24. End Try
    25. End If
    26. End Sub
    28. Dim ttip As New ToolTip()
    29. Dim _dragActive As Boolean = False
    30. Dim _dragName As String = Nothing
    32. Private Sub ListView1_ItemDrag(sender As Object, e As ItemDragEventArgs) Handles ListView1.ItemDrag
    33. Dim lvItem As ListViewItem = DirectCast(e.Item, ListViewItem)
    34. _dragActive = True
    35. _dragName = ListBox1.SelectedItem.ToString()
    36. Timer1.Start()
    37. End Sub
    39. Private Sub _MouseUp(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseUp
    40. If e.Button = MouseButtons.Left AndAlso _dragActive Then
    42. PictureBox1.Load(ListBox1.SelectedItem.ToString())
    43. End If
    44. End Sub
    46. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    47. If _dragActive = True AndAlso MouseButtons.HasFlag(MouseButtons.Left) Then
    48. Dim cp = Cursor.Position
    49. cp.Y += CInt(Cursor.Size.Height * 1.5)
    50. ttip.Show(_dragName, Me, PointToClient(cp))
    51. Else
    52. ttip.Hide(Me)
    53. _dragActive = False
    54. End If
    56. End Sub
    58. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    60. End Sub
    62. Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick
    63. Form2.PictureBox1.Load(ListBox1.SelectedItem.ToString())
    64. Form2.Show()
    65. End Sub
    67. Private Sub FileSystemWatcher1_Changed(sender As Object, e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed, FileSystemWatcher1.Deleted, FileSystemWatcher1.Created
    68. Try
    69. ImageList1.Images.Add(New Bitmap(e.FullPath, False).GetThumbnailImage(200, 200, Nothing, IntPtr.Zero))
    70. ListView1.Items.Add(My.Computer.FileSystem.GetName(e.FullPath), ImageList1.Images.Count - 1)
    71. ListBox1.Items.Add(e.FullPath)
    73. Catch ex As Exception
    75. End Try
    77. End Sub
    79. Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
    81. If e.Button = MouseButtons.Right Then
    82. Dim message As String =
    83. "Wollen Sie die Datei löschen?"
    84. Dim caption As String = "Datei löschen"
    85. Dim result = MessageBox.Show(message, caption,
    86. MessageBoxButtons.YesNo,
    87. MessageBoxIcon.Question)
    89. If (result = DialogResult.No) Then
    91. Return
    93. End If
    94. If (result = DialogResult.Yes) Then
    95. Try
    96. 'Remove single item
    97. ListView1.Items.RemoveAt(ListView1.SelectedIndices(0))
    99. 'Remove Multiple Selected Items
    100. For Each item As ListViewItem In ListView1.SelectedItems
    101. item.Remove()
    102. Next
    104. 'Select Item at last index
    105. ListView1.Items(ListView1.Items.Count - 1).Selected = True
    107. Catch ex As Exception
    109. End Try
    111. End If
    113. End If
    114. End Sub
    116. End Class

    paanaa schrieb:

    VB.NET-Quellcode

    1. Form2.Show()
    Gugst Du Dialoge: Instanziierung von Forms und Aufruf von Dialogen
    Kannst Du mal den Ablauf beschreiben (Da hin klicken, die Information von da nach dort reichen usw.), wie es von der Auswahl zum Löschen kommen soll?
    =====

    VB.NET-Quellcode

    1. If (result = DialogResult.Yes) Then
    Dieses If kannste einfach weglassen.
    Ich denke mal, setze einen Haltepunkt rein und steppe Deinen Code durch. Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das

    VB.NET-Quellcode

    1. Form2.Show()
    ist für die Paint Oberfläche gedacht. Soll nichts mit der Lösch/Remove Funktion zu tun haben.

    Es soll eine Datei mit einem Rechtsklick in einem Ordner Ausgewählt werden und eine MessageBox erscheinen wobei abgefragt wird, ob eine Datei gelöscht werden soll.
    Hierbei soll 1. im Programm die Datei nicht mehr sichtbar sein durch ein remove aus der ListView und 2. soll die Datei von der Festplatte in den Papierkorb von Windows verschoben werden.

    paanaa schrieb:

    ist für die Paint Oberfläche gedacht.
    Ist egal wofür, das ist ganz ganz ganz ganz schlimmer VB6-Ranz!!!!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    paanaa schrieb:

    Okay
    Nicht verstanden.
    Form2 ist der Name der Klasse, Du rufst die scheiß mist ranz VB6-Kompatibilitäts-Instanz auf, Du kannst so z.B. nicht zwei Instanzen dieser Form gleichzeitig darstellen!
    Mach einen ordentlichen Aufruf mit einer ordentlichen .NET-Instanz:

    VB.NET-Quellcode

    1. Using dlg = New Form2
    2. dlg.ShowDialog()
    3. End Using
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    paanaa schrieb:

    VB.NET-Quellcode

    1. Form2.Showdialog(Me)
    Damit kannst Du das?
    Glaube ich nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @paanaa Nur um das richtig zu verstehen:
    Du kannst mit

    VB.NET-Quellcode

    1. Form2.Showdialog(Me)
    eine Klick-Aktion ausführen, die mit

    VB.NET-Quellcode

    1. Using dlg = New Form2
    2. dlg.ShowDialog(Me)
    3. End Using
    nicht geht?
    Poste mal davon den Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @paanaa: Das muss dann dementsprechend so aussehen bei Dir::

    VB.NET-Quellcode

    1. Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick
    2. 'Form2.PictureBox1.Load(ListBox1.SelectedItem)
    3. 'Form2.Show()
    4. Using dlg = New Form2
    5. dlg.PictureBox1.Load(ListBox1.SelectedItem)
    6. dlg.ShowDialog()
    7. End Using
    8. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Morrison“ ()

    Ich habe es jetzt soweit, dass man die Datei in den Papierkorb verschieben kann.
    Allerdings sind meine Dateien durch das Laden in die ListView und ListBox gesperrt und somit nicht löschbar.

    VB.NET-Quellcode

    1. Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
    3. If e.Button = MouseButtons.Right Then
    4. Dim message As String =
    5. "Wollen Sie die Datei löschen?"
    6. Dim caption As String = "Datei löschen"
    7. Dim result = MessageBox.Show(message, caption,
    8. MessageBoxButtons.YesNo,
    9. MessageBoxIcon.Question)
    11. If (result = DialogResult.No) Then
    13. Return
    15. End If
    17. Try
    20. For Each lvItem As ListViewItem In ListView1.Items
    22. If lvItem.Selected = True Then
    25. Debug.Print(lvItem.Name)
    27. My.Computer.FileSystem.DeleteFile(lvItem.Name, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
    29. ListView1.Items.Remove(lvItem)
    31. End If
    33. Next
    35. Catch ex As Exception
    37. End Try
    38. End If
    39. End Sub

    Du musst Dir vor dem löschen den Dateinamen merken..
    ..hab dafür eine Variable "_toDelete" angelegt, als String..darin speicherst Du den Pfad ab.

    VB.NET-Quellcode

    1. Dim _toDelete As String = Nothing
    2. Private Sub ListBox_MouseClick......
    3. ...
    4. If (result = DialogResult.Yes) Then
    5. _toDelete = ListBox1.Items(ListBox1.IndexFromPoint(e.Location)).ToString
    6. Try
    7. Debug.WriteLine(_toDelete)
    8. My.Computer.FileSystem.DeleteFile(_toDelete, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
    9. ListView1.Items.Remove(ListView1.Items(ListBox1.IndexFromPoint(e.Location)))
    10. ListBox1.Items.Remove(ListBox1.Items(ListBox1.IndexFromPoint(e.Location)))
    11. Catch ex As Exception
    12. End Try
    13. End If
    14. ...
    15. End Sub

Facebook
Telefonspende