Einfrieren der Form verhindern...Hilfe!

  • VB.NET

Es gibt 68 Antworten in diesem Thema. Der letzte Beitrag () ist von MediaXtremely.

    Einfrieren der Form verhindern...Hilfe!

    Ich habe folgendes Problem wenn ich auf meinem Button klicke führt das Programm alles aus wunderbar, aber die Form friert ein.

    Wie kann ich das verhindern?
    Besser gesagt, wie kann ich das machen, dass ich die Form während das Programm arbeitet weiter bewegen?

    Hier der Coder:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. ListView1.Items(0).Focused = True
    3. ListView1.Items(0).Selected = True
    6. Dim i As Integer
    7. For i = 0 To ListView1.Items.Count - 1
    8. TextBox1.Text = ListView1.FocusedItem.Text
    10. TextBox3.Text = ListView1.FocusedItem.Text
    13. If TextBox1.Text.Contains("\") = True Then
    14. Dim Slash As Integer = InStrRev(TextBox1.Text, "\")
    15. TextBox3.Text = Mid(TextBox1.Text, Slash + 1)
    16. Else
    17. TextBox3.Text = TextBox1.Text
    18. End If
    20. If TextBox2.Text.Contains(TextBox3.Text) Then
    21. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    22. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    23. Else
    24. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    25. End If
    30. If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
    32. For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
    33. File.SetAttributes(foundFile, FileAttributes.Normal)
    34. Next
    35. My.Computer.FileSystem.DeleteDirectory(TextBox2.Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
    36. Application.DoEvents()
    37. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    38. Else
    39. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    40. End If
    44. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    45. TextBox1.Text = ""
    46. TextBox3.Text = ""
    48. Dim ind As Integer = 0
    49. If (ListView1.SelectedItems.Count <> 0) Then
    50. ind = ListView1.SelectedItems.Item(0).Index
    51. End If
    52. If (ListView1.Items.Count <= ind + 1) Then
    53. ind = -1
    54. End If
    55. ListView1.SelectedItems.Clear()
    56. ListView1.Items.Item(ind + 1).Selected = True
    57. ListView1.Items.Item(ind + 1).Focused = True
    58. ListView1.Update()
    60. Next
    65. MsgBox("Ordner wurde kopiert.", MsgBoxStyle.Information, "Info")
    67. End Sub


    Währe sehr nett wenn mir einer helfen könnte...

    Ich bedanke mich schon mal im Voraus...

    MediaXtremely schrieb:

    falsch gedacht.

    Ja, ist es.
    Wenn du in der Küche gleichzeitig die Zwiebeln in der Pfanne umrühren musst, damit die nicht anbrennen, und Kartoffeln schneiden musst, dann brennt garantiert was an.
    Lösung ist, das "Kartoffeln schneiden" jemand anderes machen zu lassen (=den Vorgang "Kart. schneiden" als eigenen Thread deklarieren und starten). Wenn jemand anderes das übernimmt, kannst du seelenruhig die Zwiebeln umrühren.
    Soll heißen, der UI-Thread ist auch noch mit dem Zeichnen der Oberfläche beschäftigt. Gibst du ihm jetzt 'nen Brocken zum Bearbeiten, dann kann er nix zeichnen, und die Form friert ein.

    Rotherford postete nicht nur das Schlüsselwort, sondern dieses ist auf MSDN verlinkt. Lies dich dort ruhig mal rein, is'n Beispiel dabei.

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

    Du musst außerdem darauf achten, dass du im Thread mit Invokes arbeitest. Mit den Invokes bittest du also, dass der Kartoffelschneider dir die Kartoffelstücke gibt. Denn nehmen kannst du sie dir nicht einfach so. Invokes kannst du entweder mit Lambda-Audrücken ausführen oder halt mit der angegeben Funktion/Methode.

    rotherford schrieb:

    Code?


    Hier der Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim WithEvents BGW As New System.ComponentModel.BackgroundWorker With {.WorkerReportsProgress = True, .WorkerSupportsCancellation = True}
    3. Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    4. ListView1.Items(0).Focused = True
    5. ListView1.Items(0).Selected = True
    8. Dim i As Integer
    9. For i = 0 To ListView1.Items.Count - 1
    10. TextBox1.Text = ListView1.FocusedItem.Text
    12. TextBox3.Text = ListView1.FocusedItem.Text
    15. If TextBox1.Text.Contains("\") = True Then
    16. Dim Slash As Integer = InStrRev(TextBox1.Text, "\")
    17. TextBox3.Text = Mid(TextBox1.Text, Slash + 1)
    18. Else
    19. TextBox3.Text = TextBox1.Text
    20. End If
    22. If TextBox2.Text.Contains(TextBox3.Text) Then
    23. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    24. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    25. Else
    26. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    27. End If
    31. Me.Text = "Am kopieren..."
    32. Application.DoEvents()
    33. If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
    35. For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
    36. File.SetAttributes(foundFile, FileAttributes.Normal)
    37. Next
    38. My.Computer.FileSystem.DeleteDirectory(TextBox2.Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
    39. Application.DoEvents()
    40. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    41. Else
    42. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    43. End If
    44. Me.Text = "Security Data"
    47. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    48. TextBox1.Text = ""
    49. TextBox3.Text = ""
    51. Dim ind As Integer = 0
    52. If (ListView1.SelectedItems.Count <> 0) Then
    53. ind = ListView1.SelectedItems.Item(0).Index
    54. End If
    55. If (ListView1.Items.Count <= ind + 1) Then
    56. ind = -1
    57. End If
    58. ListView1.SelectedItems.Clear()
    59. ListView1.Items.Item(ind + 1).Selected = True
    60. ListView1.Items.Item(ind + 1).Focused = True
    61. ListView1.Update()
    63. Next
    70. End Sub
    72. Private Sub BGW_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
    74. End Sub
    76. Private Sub BGW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
    77. MsgBox("Ordner wurde kopiert.", MsgBoxStyle.Information, "Info")
    78. End Sub

    Ok,
    Nur zum Test(!!) setz mal Control.CheckForIllegalThreadCrosses auf True.

    Wenn keine Fehlermeldung mehr kommt, vergiss diese Funktion ganz schnell und setze deine Control-Interaktionen mittels einem Lambda in ein Invoke().

    Liebe Grüße
    /nicht getestet

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

    Der Quick-And-Dirty-Way wäre:


    VB.NET-Quellcode

    1. Me.invoke(Sub()
    3. ListView1.Items(0).Focused = True
    4. ListView1.Items(0).Selected = True
    7. Dim i As Integer
    8. For i = 0 To ListView1.Items.Count - 1
    9. TextBox1.Text = ListView1.FocusedItem.Text
    11. TextBox3.Text = ListView1.FocusedItem.Text
    14. If TextBox1.Text.Contains("\") = True Then
    15. Dim Slash As Integer = InStrRev(TextBox1.Text, "\")
    16. TextBox3.Text = Mid(TextBox1.Text, Slash + 1)
    17. Else
    18. TextBox3.Text = TextBox1.Text
    19. End If
    21. If TextBox2.Text.Contains(TextBox3.Text) Then
    22. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    23. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    24. Else
    25. TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
    26. End If
    30. Me.Text = "Am kopieren..."
    31. Application.DoEvents()
    32. If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
    34. For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
    35. File.SetAttributes(foundFile, FileAttributes.Normal)
    36. Next
    37. My.Computer.FileSystem.DeleteDirectory(TextBox2.Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
    38. Application.DoEvents()
    39. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    40. Else
    41. My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
    42. End If
    43. Me.Text = "Security Data"
    46. TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
    47. TextBox1.Text = ""
    48. TextBox3.Text = ""
    50. Dim ind As Integer = 0
    51. If (ListView1.SelectedItems.Count <> 0) Then
    52. ind = ListView1.SelectedItems.Item(0).Index
    53. End If
    54. If (ListView1.Items.Count <= ind + 1) Then
    55. ind = -1
    56. End If
    57. ListView1.SelectedItems.Clear()
    58. ListView1.Items.Item(ind + 1).Selected = True
    59. ListView1.Items.Item(ind + 1).Focused = True
    60. ListView1.Update()
    62. Next
    64. End Sub)


    Liebe Grüße
    /nicht getestet

    was aber vollkommener HurrDurr ist, da du dann den Thread auch nicht brauchst.

    Mach dir ne Sub ChangeText(textBox As TextBox, text As String)

    VB.NET-Quellcode

    1. Private Sub ChangeText(textBox As TextBox, text As String)
    2. textBox.text = text
    3. End Sub

    Dazu nen Delegaten:

    VB.NET-Quellcode

    1. Public Delegate Sub dlgChangeText(textBox As TextBox, text As String)

    Und ruf den dann mit

    VB.NET-Quellcode

    1. Dim dlgRef As dlgChangeText = new dlgChangeText(ChangeText)
    2. Me.Invoke(dlgRef(TextBox1, ListView1.FocusedItem.Text)

    So..das machst du immer nur dann, wenn du eine Property eines Controls verändern willst.
    Bei Auslesungen werden keine Probleme auftreten.

    Für die anderen Sachen musste entsprechend die Methoden erstellen.

    @Mediaxtreme:
    Nur Interessehalber: Was soll dieser Codeblock eigentlich bewirken? Vom ersten Blick sieht diese Sub wie ein Fünfzeiler aus.
    Die Funktionen des IO-Namespaces dürften nicht wirklich zum Einsatz gekommen sein. (GetFileNameWithoutExtension, GetFilename), ebenso wie String.Substring.
    Die aussagekräftigen Textboxen (1-3) machen den Quellcode für mich nämlich nicht nachvollziehbar. :(

Facebook
Telefonspende