Progressbar funktioniert nicht

  • VB.NET

Es gibt 45 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Progressbar funktioniert nicht

    Hallo zusammen,

    Ich habe in Form1 eine Progressbar1 und einen Button1.

    Im ClickEvent von Button1 steht folgendes:

    VB.NET-Quellcode

    1. Form2.visible = true


    Im Form2 Load_Event steht seehr viel Datenbankverarbeitungscode, bis sich die Form2 öffnet vergehen einige sekunden.
    Jetzt möchte ich das die Progressbar1 auf Form1 den Fortschritt anzeigt bis sich die Form2 öffnet.
    Dafür habe ich im Form2 Load_Event Code nach jedem Datenbankzugriffscode geschrieben:

    VB.NET-Quellcode

    1. ...code
    2. Form1.Progressbar1.value = 10
    3. ...code
    4. Form1.Progressbar1.value = 20
    5. ...code
    6. Form1. Progressbar1.value = 30
    7. ...code
    9. usw.


    Leider aktualisiert sich die Progressbar1 auf Form1 nicht.

    Was mache ich falsch?

    vielen dank für die Hilfe im voraus!

    Weil der code im Hauptthread der Form2 ausgeführt wird und damit auch das Zeichnen der Form solange "hängt" bis der Code im Form_Load abgearbeitet ist.

    Lösung: Datenbankverarbeitungs Code in einen extra Thread/BackgroundWorker auslagern.

    Du greifst auf die falsche Instanz der Form1 zu.
    Schlechte Lösung:
    Übergib bei der Erstellung der Form2 mit New einen Form1-Parameter an die Form2, speichere diesen dann zwischen und nutze ihn zum Setzen der Progressbar.
    Gute Lösung:
    Gib der Form2 ein Event.
    Form1 mit Button und Progressbar, Form2 mit Button
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents MyForm2 As Form2
    3. Private Sub Progress(ByVal sender As System.Object, ByVal e As Form2.UpdateEventArgs) Handles MyForm2.updatePercent
    4. ProgressBar1.Value = e.Value
    5. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. If MyForm2 Is Nothing OrElse MyForm2.IsDisposed Then
    9. MyForm2 = New Form2
    10. End If
    11. If Not MyForm2.Visible Then
    12. MyForm2.Show()
    13. End If
    14. End Sub
    15. End Class

    VB.NET-Quellcode

    1. Public Class Form2
    2. Public Class UpdateEventArgs
    3. Inherits EventArgs
    4. Public Value As Integer
    6. Public Sub New(ByVal Val As Integer)
    7. Value = Val
    8. End Sub
    9. End Class
    11. Public Event updatePercent(ByVal sender As System.Object, ByVal e As UpdateEventArgs)
    12. Private _Value As Integer = 0
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. _Value += 1
    15. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))
    17. End Sub
    18. End Class



    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!

    Mach Dir ein separates Projekt, füge da meinen Code ein und studiere ihn.
    Button1 in Form1 ruft Form2 auf.
    Button1 in Form2 steuert die Progressbar an.
    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!

    @a.setzer: zum Thema Threads gibt es hier und im Netz genügend Informationen, ja selbst wenn ich deine Frage an mich bei Google eingebe bekomme ich als erste Google Ergebnisse sogar jede Menge

    bit.ly/KooFqj

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

    @Dodo - ja danke, hatte den Backgroundworker bereits im Google erkundet... jedoch mit viel Text verbunden.
    Warum viel Text wenn im Endefekkt nur 2 zeilchen nötig sind :)

    Ich habs grad eilig - muss das Projekt schnell zu Ende bekommen, ansonsten bin ich auch ein Google Freund.

    @RodFrom Germany!
    Habe ich getan und demnach den Code in mein Projekt versucht einzubauen.

    Am Ende der Form1 habe ich eingefügt:

    VB.NET-Quellcode

    1. Private WithEvents Progressbar As C7Kameraprüfung
    2. Private Sub Progress(ByVal sender As System.Object, ByVal e As C7Kameraprüfung.UpdateEventArgs) Handles Progressbar.updatePercent
    3. ProgressBar1.Value = e.Value
    4. End Sub


    Am Ende der Form2 habe ich eingefügt:

    VB.NET-Quellcode

    1. Public Class UpdateEventArgs
    2. Inherits EventArgs
    3. Public Value As Integer
    5. Public Sub New(ByVal Val As Integer)
    6. Value = Val
    7. End Sub
    8. End Class
    10. Public Event updatePercent(ByVal sender As System.Object, ByVal e As UpdateEventArgs)
    11. Private _Value As Integer = 0


    Im Load Event der Form2 habe ich eingefügt:

    VB.NET-Quellcode

    1. _Value += 10
    2. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))



    funktioniert nicht!!

    RodFromGermany schrieb:

    Mach Dir ein separates Projekt, füge da meinen Code ein und studiere ihn.

    a.setzer schrieb:

    funktioniert nicht!!
    Was funktioniert 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!

    Die Progressbar verändert Ihren status nicht während das form2.load.event verarbeitet wird...

    Habe in der mitte des load_event_codes eingefügt:

    VB.NET-Quellcode

    1. _Value += 10
    2. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))


    An diesem Punkt sollte die Progressbar doch dann wenigstens auf 10% springen
    und den restlichen code verarbeiten

    RodFromGermany schrieb:

    Mach Dir ein separates Projekt, füge da meinen Code ein und studiere ihn.

    Hast Du das getan?
    Bei mir funktioniert es.
    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!

    a.setzer schrieb:

    Private WithEvents Progressbar As C7Kameraprüfung

    Idt C7Kameraprüfung die Klasse, in der folgender Code steht:

    VB.NET-Quellcode

    1. _Value += 10
    2. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))
    :?: :?: :?:
    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!

    Ja richtig, im LOAD event der Form "C7Kameraprüfung" steht zwischen dem laaaaangen Code

    VB.NET-Quellcode

    1. _Value += 10
    3. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))


    Auf der Form "Form1" befindet sich die ProgressBar
    und der Code

    VB.NET-Quellcode

    1. Public Class UpdateEventArgs
    2. Inherits EventArgs
    3. Public Value As Integer
    5. Public Sub New(ByVal Val As Integer)
    6. Value = Val
    7. End Sub
    8. End Class
    10. Public Event updatePercent(ByVal sender As System.Object, ByVal e As UpdateEventArgs)
    11. Private _Value As Integer = 0

    a.setzer schrieb:

    Im Load Event der Form2 habe ich eingefügt:

    VB.NET-Quellcode

    1. _Value += 10
    2. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))

    a.setzer schrieb:

    im LOAD event der Form "C7Kameraprüfung" steht
    Nun noch einmal:
    Form2 <=> Form "C7Kameraprüfung"

    RodFromGermany schrieb:

    Ist C7Kameraprüfung die Klasse, in der folgender Code steht:
    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!

    FORM "Form1"

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    4. Progressbar = New C7Kameraprüfung
    5. Progressbar.Show()
    7. 'Datumfeld 2 darf nicht kleiner sein als Datumfeld 1
    8. If DateTimePicker2.Value <= DateTimePicker1.Value Then
    9. MessageBox.Show("ungültiger Zeitraum!", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    10. Exit Sub
    11. End If
    13. 'Auswertungsseite aufrufen!!!
    14. 'C7 Firewall
    15. If ComboBox2.Text = ("C7 Firewall") Then
    16. If Not ComboBox3.Text = ("-- keine Auswahl --") Then
    17. C7Firewall.Visible = True
    18. Else : MessageBox.Show("Es wurde kein C7 Blendentyp angewählt!", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    19. End If
    20. 'C7 Kameraprüfung
    21. ElseIf ComboBox2.Text = ("C7 Kameraprüfung") Then
    22. If Not ComboBox3.Text = ("-- keine Auswahl --") Then
    23. C7Kameraprüfung.Visible = True
    24. Else : MessageBox.Show("Es wurde kein C7 Blendentyp angewählt!", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    25. End If
    26. 'B8PA
    27. ElseIf ComboBox2.Text = ("B8PA") Then
    28. If Not ComboBox3.Text = ("-- keine Auswahl --") Then
    29. B8PALackpruefung.Visible = True
    30. Else : MessageBox.Show("Es wurde kein B8PA Typ angewählt!", "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    31. End If
    32. End If
    33. End Sub
    35. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    36. Me.Close()
    37. End Sub
    39. Private WithEvents Progressbar As C7Kameraprüfung
    40. Private Sub Progress(ByVal sender As System.Object, ByVal e As C7Kameraprüfung.UpdateEventArgs) Handles Progressbar.updatePercent
    41. ProgressBar1.Value = e.Value
    42. End Sub
    43. End Class



    FORM "C7Kameraprüfung"

    VB.NET-Quellcode

    1. Public Class C7Kameraprüfung
    2. Private Sub C7Kameraprüfung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. 'GANZ VIEL CODE
    5. _Value += 10
    6. RaiseEvent updatePercent(Me, New UpdateEventArgs(_Value))
    8. 'GANZ VIEL CODE
    9. End Sub
    11. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    12. Me.Close()
    13. End Sub
    16. Public Class UpdateEventArgs
    17. Inherits EventArgs
    18. Public Value As Integer
    20. Public Sub New(ByVal Val As Integer)
    21. Value = Val
    22. End Sub
    23. End Class
    25. Public Event updatePercent(ByVal sender As System.Object, ByVal e As UpdateEventArgs)
    26. Private _Value As Integer = 0
    27. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „a.setzer“ ()

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Progressbar = New C7Kameraprüfung
    3. Progressbar.Show()
    4. End Sub
    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!

Facebook
Telefonspende