progressbar kode

Til inspiration:

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Threading

Public Class MainForm
Inherits Form
    Private bar As ProgressBar
    Private start As Button
    Private abort As Button
    Private t As Thread

    Public Sub New()
        bar = New ProgressBar
        start = New Button
        abort = New Button
        SuspendLayout
        bar.Location = New Point (50, 50)
        bar.Size = New Size (200, 50)
        bar.Name = "Progress Bar"
        bar.Minimum = 0
        bar.Maximum = 60
        bar.Value = 0
        bar.Step = 1
        start.Location = New Point (50, 150)
        start.Size = New Size (200, 50)
        start.Name = "Start Button"
        start.Text = "Start"
        AddHandler start.Click, AddressOf StartClick
        abort.Location = New Point (50, 250)
        abort.Size = New Size (200, 50)
        abort.Name = "Abort Button"
        abort.Text = "Abort"
        AddHandler abort.Click, AddressOf AbortClick
        ClientSize = New Size (300, 350)
        Controls.Add(bar)
        Controls.Add(start)
        Controls.Add(abort)
        Name = "Main Form"
        Text = "Main Form"
        ResumeLayout(False)
    End Sub

    Sub Copy()
        Dim i As Integer = 0
        While i < 60
            bar.Value = i
            Thread.Sleep(1000)
            i = i + 1
        End While
    End Sub

    Sub StartClick(ByVal sender As Object, ByVal e As EventArgs)
        t = New Thread (AddressOf Copy)
        t.Start
    End Sub

    Sub AbortClick(ByVal sender As Object, ByVal e As EventArgs)
        t.Abort
    End Sub

    <STAThread()> _
    Public Shared Sub Main(ByVal args As String())
        Application.Run(New MainForm )
        Application.Exit
        Environment.Exit(0)
    End Sub
End Class

Copy skal erstattes af din log analyzer

Ser interessant ud....

er det Thread som egentlig er hele tricket? som er i stand til at pause sin lykke?

Det at du kører den tunge operation i en tråd gør at skærm opdateringen virker.

OK ?

ough...
undskyld... det er kanon..
tak for hjælpen