Threadübergreifend auf Listview.items Auflistung zugreifen?

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Hallo,

    Es Funktioniert ja soweit alles problemlos, bis auf die Tatsache, dass wenn die Sub "lvAuslesen()" angehalten wird oder längere Zeit für Codeabwicklung benötigt, der UI Zugriff blockiert ist. Ich habe dann zwar einen zweiten Thread der aber leider nicht parallel zum UI Thread läuft?
    Hier der Vollständigkeit halber aber noch der Code:

    VB.NET-Quellcode

    1. Imports System.Data
    2. Imports System.Threading
    3. Imports System
    4. Imports System.Windows.Forms
    6. Public Partial Class MainForm
    8. Public Sub New()
    9. Me.InitializeComponent()
    10. '
    11. ' TODO : Add constructor code after InitializeComponents
    12. '
    13. End Sub
    16. Sub lvAuslesen()
    17. Dim lvx As New ListView
    18. lvx = Me.listView1
    19. lvx.Invoke(Sub()
    20. For Each item1 As ListViewItem In lvx.items
    21. Select Case item1.Text
    22. Case Is = "1"
    23. '....
    24. Case Is = "2"
    25. '....
    26. Case Is = "3"
    27. '....
    28. Case Else
    29. '....
    30. End Select
    31. Thread.Sleep(20)
    32. Next
    33. End Sub)
    34. End Sub
    36. Sub Button1Click(sender As Object, e As EventArgs)
    37. Me.DoSomphing()
    38. End Sub
    39. Sub DoSomphing()
    40. Dim T as New Thread(AddressOf lvAuslesen)
    41. T.Start
    42. End Sub


    VB.NET-Quellcode

    1. Partial Class MainForm
    2. Private Sub InitializeComponent()
    3. Me.button1.Location = New System.Drawing.Point(12, 12)
    4. Me.button1.Name = "button1"
    5. Me.button1.Size = New System.Drawing.Size(75, 23)
    6. Me.button1.TabIndex = 4
    7. Me.button1.Text = "Start1"
    8. Me.button1.UseVisualStyleBackColor = true
    9. AddHandler Me.button1.Click, AddressOf Me.Button1Click
    10. End Sub
    12. Private button1 As System.Windows.Forms.Button
    14. End Class


    Das was in der Sub "lvAuslesen()" abläuft soll den UI Thread in seiner Abarbeitung nicht beeinflussen!
    Das ist es was ich möchte.

    Vielen Danke !

    LG, Thomas

    das was du uns bisher zeigst, müsste imo auch ohne Invoking laufen - entferne das mal.
    Aber vlt. irre ich mich auch, Also nimm genau den hier gezeigten Code, mach das Invoking weg, poste Code, und gib an, in welcher Zeile Fehler - bzw. überzeuge dich, dass gar kein Fehler auftritt.

    Weil wenn kein Fehler auftritt, kann man auch nix helfen.

    Hallo,

    hab das jetzt gemacht was du wolltest:

    VB.NET-Quellcode

    1. Sub lvAuslesen()
    2. Dim lvx As New ListView
    3. lvx = Me.listView1
    4. For Each item1 As ListViewItem In lvx.items
    5. Select Case item1.Text
    6. Case Is = "1"
    7. '....
    8. Case Is = "2"
    9. '....
    10. Case Is = "3"
    11. '....
    12. Case Else
    13. '....
    14. End Select
    15. Thread.Sleep(20)
    16. Next
    17. End Sub


    Folgender Fehler tritt in Zeile 4 auf:

    System.InvalidOperationException: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement listView1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.


    Ergänzend noch ein Hinweis. Ich arbeite mit der .Net Version 4.0.

    Gruß, Thomas

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

    gut, bzw schlecht - offenbar kann man im NebenThread ListViewItems nichtmal abrufen vom ListView. Machs also im HauptThread, so:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    2. Dim lvis = New List(Of ListViewItem)(ListView1.Items.Cast(Of ListViewItem))
    3. Dim dlg = New Action(Of List(Of ListViewItem))(AddressOf lvAuslesen)
    4. dlg.BeginInvoke(lvis, AddressOf dlg.EndInvoke, Nothing)
    5. End Sub
    7. Sub lvAuslesen(ByVal lvis As List(Of ListViewItem))
    8. For Each item1 As ListViewItem In lvis
    9. Select Case item1.Text
    10. Case Is = "1"
    11. '....
    12. Case Is = "2"
    13. '....
    14. Case Is = "3"
    15. '....
    16. Case Else
    17. '....
    18. End Select
    19. Thread.Sleep(20)
    20. Next
    21. End Sub

Facebook
Telefonspende