Form friert ein trotz thread und double puffered?

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von timmi31061.

    Form friert ein trotz thread und double puffered?

    Hallo,

    ich habe ein kleines problem, undzwar während mein Programm arbeitet, hängt es sich auf und die Progressbar und alles arbeitet nicht (zumindestens visuell nicht) habe es schon mit thread und double puffered auf True gesetzt. trotzdem hakt die form, wenn man sie zum beispiel bewegen will.

    gibt es noch eine Möglichkeit?

    Zwäähn schrieb:

    Versuchs mit dem Backgroundworker und nehm einen anderen Thread und nicht den Hauptthread

    1) sind BackgroundWorker ne alte Sache und die sind imo nur sinnvoll, wenn man Progress berichtet. Ansonsten gibt es besseres, wie Tasks etc.
    2) hat er ja schon nen eigenen Thread.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    1) sind BackgroundWorker ne alte Sache und die sind imo nur sinnvoll, wenn man Progress berichtet. Ansonsten gibt es besseres, wie Tasks etc.


    Naklar, mein Fernseher ist jetzt auch schon 1,5 Jahre alt, den benutz ich nicht mehr!
    Natürlich gibts noch ein paar andere Möglichkeiten (ThreadPool, Tasks, Async etc)
    Der BGW ist z.b. bzw nur geeignet wenn man mit der UI interagieren will (Statusabfragen z.b.).

    Oder Threadpool ist z.b. effizienter und recht einfach zu handlen (und weniger Aufwand).

    jedem das seine :P
    Kommt immer drauf an was man gerade anstellen will.
    Mag zwar sein das der BGW schon veraltet ist aber solange MS diesen nicht entfernt, warum sollte man ihn nicht nutzen?

    Er hat übrigens noch keinen Code gepostet...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Zwäähn“ ()

    So hier der Code musste es wieder zurückschreiben, da ich erstmal das tutorial von Zwään durchgearbeitet aber ohne erfolg.

    so hier:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Threading
    5. Public Class Form1
    7. Dim th As New System.Threading.Thread(AddressOf Durchlauf)
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. OpenFileDialog1.ShowDialog()
    10. ListBox1.Items.AddRange(IO.File.ReadAllLines(OpenFileDialog1.FileName))
    12. Button2.Enabled = True
    13. Label2.Text = ListBox1.Items.Count
    15. End Sub
    17. Sub Durchlauf(ByVal s As String)
    18. Try
    20. Dim myRequest As HttpWebRequest = CType(WebRequest.Create("http://www.google.de/"), HttpWebRequest)
    21. myRequest.Method = "GET"
    22. myRequest.ContentType = "application/x-www-form-urlencoded"
    23. myRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2"
    24. myRequest.Timeout = 5000
    25. myRequest.CookieContainer = New CookieContainer
    26. Dim proxy As New WebProxy(s)
    27. myRequest.Proxy = proxy
    28. Dim myResponse As System.Net.WebResponse = myRequest.GetResponse()
    29. Dim myStream As System.IO.Stream = myResponse.GetResponseStream()
    30. Dim myReader As New System.IO.StreamReader(myStream)
    31. ListBox2.Items.Add(s)
    32. ProgressBar1.Value += 1
    33. myReader.Close()
    34. Button2.Enabled = False
    35. Button3.Enabled = False
    36. Button4.Enabled = True
    37. Catch ex As Exception
    39. End Try
    41. End Sub
    42. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    43. For i As Integer = 0 To Me.ListBox1.Items.Count - 1
    44. Durchlauf(Me.ListBox1.Items(i))
    45. Next
    47. th.Start()
    49. End Sub
    51. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    53. End Sub
    55. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    56. SaveFileDialog1.ShowDialog()
    58. For i = 0 To ListBox2.Items.Count - 1
    59. Dim writer As New StreamWriter(SaveFileDialog1.FileName & ".txt", True)
    60. writer.WriteLine(ListBox2.Items(i).ToString)
    61. writer.Close()
    62. Next
    64. End Sub
    66. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    67. th.Abort()
    68. Button3.Enabled = False
    69. Button2.Enabled = True
    70. End Sub
    71. End Class

    aber es nur die form friert ein.

    Hey,

    1. Dass Dein Thread so keinen Sinn macht, ist Dir klar? Du führst die Arbeit auf dem GUI-Thread aus, kein Wunder, wenn dieser blockiert.
    2. OPTION STRICT ON
    3. Für Dein Vorhaben würde sich auch die WebClient-Klasse eignen, diese bietet asynchrone Methoden, die Du nutzen kannst.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Es kann sein, dass da irgendwo ein Fehler ist, weil etwas nicht funktioniert. Ein Fehler wird dir -je nach art- wegen dem Try-Catch nicht angzeigt. Nimm das mal raus, oder mache ein Schritt für Schritt Debugging. (Ich glaube genau für sowas hat Microsoft die Funktionen ja implementiert).

    so hab jetzt alles überarbeitet mit Option Strict On, aber er meckert immer an dieser zeile:

    VB.NET-Quellcode

    1. Dim star As New ThreadStart(AddressOf Durchlauf) '<- hier mekert er


    Hier der gesamte Code:


    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Threading
    6. Public Class Form1
    8. Private Sub laden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles laden.Click, laden.Click
    9. OpenFileDialog1.ShowDialog()
    10. ListBox1.Items.AddRange(IO.File.ReadAllLines(OpenFileDialog1.FileName))
    12. start.Enabled = True
    13. Label2.Text = CStr((ListBox1.Items.Count))
    15. End Sub
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
    19. For i As Integer = 0 To Me.ListBox1.Items.Count - 1
    20. Durchlauf(CStr(Me.ListBox1.Items(i)))
    21. Next
    23. End Sub
    25. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
    26. SaveFileDialog1.ShowDialog()
    28. For i = 0 To ListBox2.Items.Count - 1
    29. Dim writer As New StreamWriter(SaveFileDialog1.FileName & ".txt", True)
    30. writer.WriteLine(ListBox2.Items(i).ToString)
    31. writer.Close()
    32. Next
    34. End Sub
    36. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles break.Click
    37. Dim star As New ThreadStart(AddressOf Durchlauf) '<- hier mekert er
    38. Dim einheit As New Thread(star)
    39. break.Enabled = False
    40. start.Enabled = True
    41. End Sub
    43. Private Sub Durchlauf(ByVal s As String) '<- für den thread
    45. Dim myRequest As HttpWebRequest = CType(WebRequest.Create("http://www.google.de/"), HttpWebRequest)
    46. myRequest.Method = "GET"
    47. myRequest.ContentType = "application/x-www-form-urlencoded"
    48. myRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2"
    49. myRequest.Timeout = 5000
    50. myRequest.CookieContainer = New CookieContainer
    51. Dim proxy As New WebProxy(s)
    52. myRequest.Proxy = proxy
    53. Dim myResponse As System.Net.WebResponse = myRequest.GetResponse()
    54. Dim myStream As System.IO.Stream = myResponse.GetResponseStream()
    55. Dim myReader As New System.IO.StreamReader(myStream)
    56. ListBox2.Items.Add(s)
    57. ProgressBar1.Value += 1
    58. myReader.Close()
    59. start.Enabled = False
    60. break.Enabled = False
    61. save.Enabled = True
    63. End Sub
    65. End Class

    Was meckert er? Bestimmt irgendwas wegen dem Parameter. Musste Dir halt den korrekten Parameter bei MSDN oder im Objektkatalog anschauen bzw. ich sehe grade, dass der nen Parameter will. Dann musst Du halt nen anonymen Delegaten oder sowas verwenden oder nen ParameterizedThreadStart.
    1. Du produzierst ziemliche Speicherlecks, weil Du Dialoge, Response-Zeugs etc. nicht diposen tust. Nutze dafür immer einen Using-Block.
    2. CStr etc. sind Abstammungen von CType und eher hässlich. Schau dazu: Konvertieren - wie funktionierts richtig
    Verlasse Dich dabei also nicht auf die VS-Vorschläge, die sind zu 95% Mist.
    3. Benenne Deine Controls etc. richtig. Ich glaube kaum, dass Du zum Beispiel irgendwann weißt, was ein Control genau macht.
    4. Trenne GUI und Daten. Erstelle also erst Variablen und binde diese dann an ein Label.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Darf ich fragen warum du Option Strict On in deinem Code schreibst? Das kannst du doch einfach in den Projekt-Eigenschaften einstellen.
    Es existiert ein Interesse an der generellen Rezession der Applikation relativ primitiver Methoden komplimentär zur Favorisierung adäquater komplexer Algorithmen.
    ------------------------------------------------------------------------------------
    Rising Existence - das GTA V-MP Projekt mit Zukunft und Innuvation

    Maik H. schrieb:

    in den Projekt-Eigenschaften einstellen.
    Im Studio einstellen, da ist es bei jedem neuen VB-Projekt automatisch gesetzt.
    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!

    RodFromGermany schrieb:

    Maik H. schrieb:

    in den Projekt-Eigenschaften einstellen.
    Im Studio einstellen, da ist es bei jedem neuen VB-Projekt automatisch gesetzt.

    Oder so. ;)
    Es existiert ein Interesse an der generellen Rezession der Applikation relativ primitiver Methoden komplimentär zur Favorisierung adäquater komplexer Algorithmen.
    ------------------------------------------------------------------------------------
    Rising Existence - das GTA V-MP Projekt mit Zukunft und Innuvation

    Trade schrieb:

    Was meckert er?
    Er meckert, weil ParameterizedThreadStart ein Object will, aber einen String bekommt.

    @licere
    Nutze lieber Delegaten mit .BeginInvoke()

    VB.NET-Quellcode

    1. Public Delegate Sub ThreadDelegate(text As String, zahl As Integer)
    3. Public Sub StartThread()
    4. Dim t As New ThreadDelegate(Sub(txt, n)
    5. Console.WriteLine(txt)
    6. Console.WriteLine(n)
    7. End Sub)
    8. t.BeginInvoke("Hallo Welt!", 42, Nothing, Nothing)
    9. End Sub
    Mit freundlichen Grüßen,
    Thunderbolt

Facebook