Listview Problem

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    Listview Problem

    Hallo zusammen

    Ich brauche Hilfe, bei einem Projekt das ich zuvor schon einmal programmeirt habe, jedoch irgendwie abhanden gekommen ist.
    Ich ziehe per Drag'n'Drop Dateien auf meine Listview, der Code dazu sieht so aus:

    VB.NET-Quellcode

    1. Private Sub lv_main_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lv_main.DragEnter
    2. If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
    3. 'Kopiereffekt
    4. e.Effect = DragDropEffects.Copy
    5. End If
    6. End Sub
    8. Private Sub lv_main_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lv_main.DragDrop
    9. 'Auslesen
    10. Dim data() As String = e.Data.GetData(DataFormats.FileDrop)
    11. For Each Datei As String In data
    12. Dim DI As New IO.FileInfo(Datei)
    13. If Not IsAlreadyInListview(Datei) Then
    14. AddListeviewMain(DI.Name, DI.Length, DI.DirectoryName)
    15. Else
    16. M("Information", "Die Datei """ & DI.Name & """ ist bereits vorhanden.", MessageBoxButtons.OK, MessageBoxIcon.Information)
    17. End If
    18. Next
    19. End Sub

    Da ich keine gleichen Dateien will, hab ich mir eine Funktion (IsAlreadyInListview) gebastelt, dir mir zurückgibt (true/false), ob die Datei bereits in der Listview aufgelistet ist:

    VB.NET-Quellcode

    1. Private Function IsAlreadyInListview(ByVal Filepath As String) As Boolean
    2. Dim DI As New IO.FileInfo(Filepath)
    3. If lv_main.Items.Count > 0 Then
    4. For Each Datei As String In lv_main.Items
    5. If Datei = DI.Name Then
    6. Return True
    7. Exit Function
    8. End If
    9. Next
    10. End If
    11. Return False
    12. End Function 'Bereits in ListBox vorhanden

    Falls nicht, wird sie mit der Sub "AddListviewMain" aufgelistet:

    VB.NET-Quellcode

    1. Private Sub AddListeviewMain(ByVal Name As String, ByVal Size As Long, ByVal Pfad As String)
    2. With lv_main.Items.Add(Name).SubItems
    3. .Add(Size.ToString)
    4. .Add(Pfad)
    5. End With
    6. End Sub 'Datei zu Listview hinzufügen

    Das funktioniert perfekt, allerdings nur bei der ersten Datei die ich auf meine Listview ziehe.
    Sobald ich eine zweite Datei darauf ziehe, wird diese nicht aufgelistet. Ziehe ich eine gleiche Datei darauf wird auch keine Fehlermeldung ausgegeben.

    Einzelschritt hat nichts gebracht, sobald er bei "IsAlreadyInListview" bei "For Each Datei As String In lv_main.Items" ankommt, und auf F8 drücke, fällt er aus dem Einzelschritt raus und zeigt die Form an, auf der die zweite Datei nicht zu sehen ist. Also als hätte ich statt F5 anstatt F8 gedrückt.. (Ich habe F8 gedrückt, hab's schon 10x versucht).

    Wo liggt das Problem, hab ich was vergessen?

    Würde mich über Hilfe freuen.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Probier mal:


    VB.NET-Quellcode

    1. If IsAlreadyInListview(Datei) = false Then
    2. AddListeviewMain(DI.Name, DI.Length, DI.DirectoryName)
    3. Else
    4. M("Information", "Die Datei """ & DI.Name & """ ist bereits vorhanden.", MessageBoxButtons.OK, MessageBoxIcon.Information)
    5. End If




    Grüße

    Ok, ich hab mich nochmal dran gesetzt:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Sub AddListeviewMain(ByVal Name As String, ByVal Size As Long, ByVal Pfad As String)
    5. With lv_main.Items.Add(Name).SubItems
    6. .Add(Size.ToString)
    7. .Add(Pfad)
    8. End With
    9. End Sub
    11. Private Function IsAlreadyInListview(ByVal Filepath As String) As Boolean
    12. Dim DI As New IO.FileInfo(Filepath)
    13. If lv_main.Items.Count > 0 Then
    15. For i = 0 To lv_main.Items.Count - 1
    17. If lv_main.Items(i).Text = DI.Name.ToString Then
    19. Return True
    20. Exit Function
    21. End If
    23. Next
    25. End If
    26. Return False
    27. End Function
    29. Private Sub lv_main_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lv_main.DragEnter
    30. If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
    31. 'Kopiereffekt
    32. e.Effect = DragDropEffects.Copy
    33. End If
    34. End Sub
    36. Private Sub lv_main_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lv_main.DragDrop
    37. 'Auslesen
    38. Dim data() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
    39. For Each Datei As String In data
    40. Dim DI As New IO.FileInfo(Datei)
    41. If Not IsAlreadyInListview(Datei) Then
    42. AddListeviewMain(DI.Name, DI.Length, DI.DirectoryName)
    43. Else
    44. MessageBox.Show("Information", "Die Datei """ & DI.Name & """ ist bereits vorhanden.", MessageBoxButtons.OK, MessageBoxIcon.Information)
    45. End If
    46. Next
    47. End Sub
    49. End Class


    Deine Funktion wo du die Liste durchgehst war irgendwie ein bischen ... verrückt.
    (Ungültige Konvertierung von Typ ListViewItem in Typ String.)

    OPTION STRICT ON

    Grüße

    ThuCommix schrieb:

    OPTION STRICT ON

    Ich programmiere immer mit Option Strict On, leider habe ich Montags die Abteilung gewechselt (= neuer Computer) und Option Strict On nicht gleich als Standard gesetzt, als ich es neu installiert habe.

    Jedoch erhielt ich diese Meldung nicht: "(Ungültige Konvertierung von Typ ListViewItem in Typ String.)"
    Auch nicht mit Option Strict On :S (Eigentlich unmöglich..)

    Naja, Projekt läuft. UND Option Strict On ist wieder Standardmässig eingeschalten ;DDD

    Danke dir.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    ja, das ist ein Problem bei DragnDrop, das hat MS richtig vermurkst. Da werden Exceptions einfach verschluckt, und man sucht sich dumm und dämlich.
    Abhilfe schafft Draggen in der Anwendung (leider nur c#, aber die erläuterungen gelten türlich auch in vb.)
    Ah - habich sogar nach vb gemacht: DragnDrop innerhalb der Anwendung

    ErfinderDesRades schrieb:

    ja, das ist ein Problem bei DragnDrop, das hat MS richtig vermurkst. Da werden Exceptions einfach verschluckt, und man sucht sich dumm und dämlich.

    Richtig.

    ErfinderDesRades schrieb:

    Abhilfe schafft Draggen in der Anwendung (leider nur c#, aber die erläuterungen gelten türlich auch in vb.)
    Ah - habich sogar nach vb gemacht: DragnDrop innerhalb der Anwendung

    Danke für die Links, schau ich mir an.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

Facebook
Telefonspende