Windowsform Vorladen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Windowsform Vorladen

    Guten Morgen,

    kann man eine Form in einem BGW oder Thread "Vorladen" und dann später bei Bedarf nur sichtbar machen?

    Hintergrund:
    Einige meiner Formen brauchen relativ lange, bis sie komplett geladen sind.

    Mein Ansatz bisher:

    VB.NET-Quellcode

    1. Private Sub BGW_Hausstatistik_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGW_Hausstatistik.DoWork
    3. With Hausstatistik ' Form
    4. .Vorladen = True
    5. .Visible = False
    6. .Show()
    7. .Refresh()
    8. End With
    10. End Sub
    12. Private Sub BGW_Hausstatistik_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BGW_Hausstatistik.RunWorkerCompleted
    14. Startmenue.TS_Menue_Haus_Verbrauch.Enabled = True
    15. Me.Vorgeladen_Hausstatistik = True
    16. MsgBox("Fertig")
    18. End Sub


    Mache ich die Form nun sichtbar, sind keine Controls der Form befüllt.
    Gibt es da eine Lösung?
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

    @Westerwälder Der BGW läuft in einem anderen Thread als die GUI, das geht schon mal schief.
    Belade die Form im Form_Load-Event mit Daten, da ist sie unsichtbar.
    Überwache dort allerdings, dass die komplette Prozedur abgearbeitet wird, weil einige Exceptions beenden die Form_Load vorzeitig, ohne dass Dir die Exception gemeldet wird.
    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!

    Nun das habe ich schon gelöst. Die Form wird erst sichtbar, wenn alle Daten zur Verfügung stehen.
    Mein Gedanke war, kurz nach Programmstart große Formen schon vorzuladen, sodass beim
    Öffnen die Wartezeit wegfällt.

    Form durch User öffnen:

    VB.NET-Quellcode

    1. Private Sub TS_Menue_Haus_Verbrauch_Click(sender As Object, e As EventArgs) Handles TS_Menue_Haus_Verbrauch.Click
    2. If Hausstatistik.Visible Then Exit Sub
    3. If Hausheizung.Visible Then Exit Sub
    4. If ProThread.Vorgeladen_Hausstatistik Then
    5. Hausstatistik.Visible = True
    6. Exit Sub
    7. End If
    9. With Wartelader
    10. .Label_Anzeige.Text = Nothing
    11. .Label_Anzeige.Text = "Verbrauchsstatistik"
    12. .Label_Warten.Text = "Initalisierung läuft ..."
    13. .Show()
    14. End With
    15. Hausstatistik.Show()
    16. End Sub


    Load_Event in der Form

    VB.NET-Quellcode

    1. Private Sub Hausstatistik_Load(sender As Object, e As EventArgs) Handles Me.Load
    3. If ProThread.Vorgeladen_Hausstatistik Then
    4. ProThread.Vorgeladen_Hausstatistik = False
    5. Me.Opacity = 1
    6. Exit Sub
    7. End If
    9. Me.Visible = False
    10. Me.Opacity = 0
    11. Me.Visible = True
    12. Me.Halt = True
    13. Me.Modus = "A"
    14. Monitor.Form_Initalisieren(Me)
    15. Me.TLPanel_Menue.BackColor = Standard.Farben.Kontrols.FormRand
    16. Me.TS_Berechnung.Visible = False
    17. Me.TS_Speichern.Visible = False
    18. Me.TS_Abbruch.Visible = False
    19. Me.TS_Copyright.Text = Programm.Copyright_Kurz
    20. Me.TS_Prognosejahr.Text = "Prognose Jahr " & Now.Year.ToString
    21. Me.TS_Statistik_Jahr.Text = "Statistik Jahr " & Now.Year.ToString
    23. Verbrauchsstatistik = New MBC_MBSOFT.CVerbrauchsstatistik
    24. With Verbrauchsstatistik
    25. .Datenverbindung = New OleDb.OleDbConnection(Daten.Verbindungsstring_MBSOFT)
    26. .VerbindungsAuftrag = "Select * From VST_Verbrauch Order By Ordnungszahl"
    27. .MitBinding = False
    28. .PrimKeyName = "ID"
    29. .Initalisieren()
    30. End With
    32. With Me.TS_Statistikjahre.ComboBox
    33. .Items.Clear()
    34. For SJ = Verbrauchsstatistik.LetztesStatistikJahr To Verbrauchsstatistik.Startjahr Step -1
    35. .Items.Add(SJ.ToString)
    36. Next
    37. .Text = Verbrauchsstatistik.LetztesStatistikJahr.ToString
    38. End With
    40. Me.Halt = False
    41. Me.TS_Neuanlage.Text = Verbrauchsstatistik.NeuanlageText
    42. Me.Prognose_Anzeigen()
    44. If Not Me.Vorladen Then Me.Opacity = 1
    46. End Sub


    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

    Westerwälder schrieb:

    kurz nach Programmstart große Formen schon vorzuladen
    Ich kenne Deine Umsetzung nicht.
    Was dauert denn so lange?
    Die Berechnung bzw. das Auslesen der Daten
    oder
    die eigentliche Darstellung?
    Du kannst während des sequenziellen Befüllens der Controls mit Daten das permanente Updaten dieser Controls unterdrücken, da geht das Befüllen wesentlich schneller:

    VB.NET-Quellcode

    1. MyControl.SuspendLayout()
    2. ' MyControl mit Daten befüllen
    3. MyControl.PerformLayout()
    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!

    @Westerwälder Dann trenne zunächst die Darstellung von Lesen und Berechnen.
    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!

    Westerwälder schrieb:

    nur noch zuweisen
    Dann musst Du das tun.
    Überprüfe dabei, ob das SuspendLayout() und PerformLayout() was bringt.
    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!

    Habe nun die beiden Formen, welche die längsten Ladevorgänge hatten, geändert.
    Bei der ersten war es die Berechnung. Hier habe ich diese in einer eigenen Klasse durchgeführt und für die Ausgabe im DGV eine Datatable erstellt.
    Bei der anderen waren viele Datenbank-Zugriffe der Zeitfaktor.
    Beide Aufgaben werden nun nach Start des Programmes in zwei BGW durchgeführt.

    Rod: SuspendLayout und PerformLayout zeigen nun keinen wirklichen Unterschied, da die Daten nur zugewiesen werden.
    Müsste ich wirklich mit der Stopuhr messen.
    Gruß Markus

Facebook
Telefonspende