Progressbar vraagje

[old Hippy]

Hallo allemaal
Mijn vraag als ik mijn App opstart begint dit in een startscherm.
Als ik naar het artikelscherm ga duurt dit even Hoe groter mijn Database word.
Hoe langer de opstart is.
Eenmaal opgestart gaat het prima.
Wat ik wil is een progressbar deze hoeft alleen maar te lopen Marquee dus.
Maar hij stop zo gauw ik het artikel scherm open.
Iets met Thread dus hoe laat ik hem lopen ???

Alvast bedankt. OLd Hippy

 

[JoZ1]

Wil je dat als de applicatie wordt opgestart, dat de progressbar loopt?

 

[old Hippy]

Ongeveer de app is een IsMidiContainer.
Bij de opstart heb je een startvorm dan kan je van daar uit kanje naar artikelform,Productform, AdministratieForm.Klanten en facturen.
Als je bv. Naar artikelform gaat moet tijdens het laden de progressbar lopen.
Hopelijk is dit duidelijk.

 

[JoZ1]

Als je wilt dat het tijdens het laden van een form, de ProgressBar loopt, weet ik niet of dat duidelijk zichtbaar is.
Een form is namelijk vrij snel geladen.

Bedoel je dit wel?

 

[old Hippy]

Ok JoZ1 Bedankt voor de reactie natuurlijk.
Ja, dit gaat redelijk snel maar hoe groter de database wordt hoe langer het duurt.
Als iemand een grootte database heeft is het prettig te zien dat er leven in het programma zit.

 

[JoZ1]

Heb je al geprobeerd in het Load-Event van de 'database form' neer te zetten dat de ProgressBar stopt?

 

[old Hippy]

Sorry geen idee ik heb nu dit maar dat stopt op het moment dat het artikelform start.
dit staat in het artikelform.

 ' This event handler is where the time-consuming work is done.
    Private Sub backgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim i As Integer
        ' Thread.Sleep(100)
        For i = 1 To 100
            If (worker.CancellationPending = True) Then
                e.Cancel = True
                Exit For
            Else
                ' Perform a time consuming operation and report progress.

                System.Threading.Thread.Sleep(50)
                worker.ReportProgress(i * 1)
            End If
        Next
    End Sub

    ' This event handler updates the progress.
    Private Sub backgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        StartForm.ProgressBarX1.Visible = True
      


        StartForm.ProgressBarX1.Value = e.ProgressPercentage
        'StartForm.ProgressBarX1.Text = (e.ProgressPercentage.ToString() + "%")



    End Sub

    ' This event handler deals with the results of the background operation.
    Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        MainForm.Start()
        StartForm.ProgressBarX1.Visible = False
        StartForm.ProgressBarX1.Value = 0
        StartForm.ProgressBarX1.Text = "UW gegevens Zijn geladen"
        StartForm.Cursor = Cursors.Default

    End Sub