Private Sub P4_CMB_Durchlauf_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs) Handles _
                                       P4_CMB_Durchlauf.Click
 
            'Testdurchlauf
            ProgressVonBis(100)
    End Sub
'...
    Public Sub ProgressVonBis(ByVal bis As Integer)
        Try
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = bis
            Dim x As Integer
            For x = 1 To bis
                ProgressBar1.Value = x
            Next x
 
            'ProgressBar1.Refresh()
            'ProgressBar1.Update()
 
 
        Catch ex As System.Exception
            MsgBox("Problem:" & vbCrLf & ex.Message)
        End Try
    End Sub

mfg.

Dirk

mfg.

Dirk

    Public Sub ProgressVonBis(ByVal bis As Integer)
        Try
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = bis
            ProgressBar1.Step = 1
            Dim x As Integer
            For x = 0 To bis
                ProgressBar1.PerformStep()
                ProgressBar1.Refresh()
                System.Threading.Thread.Sleep(10)
            Next
 
            System.Threading.Thread.Sleep(500)
            ProgressBar1.Value = 0
 
        Catch ex As System.Exception
            MsgBox("Problem:" & vbCrLf & ex.Message)
        End Try
    End Sub

mfg.

Dirk

Public Class frmTest
 
    'Progressbar1 und Timer1 von der Toolbox auf die Form ziehen
 
    Dim timervalue As Integer 'Fortschritt wird im Timer-Event erzeugt
 
 
 
    Private Sub frmTest_Load(sender As System.Object, _
              e As System.EventArgs) Handles MyBase.Load
 
        'Initialisierungen
 
        Timer1.Interval = 1000 'eine Sekunde
        Timer1.Enabled = True
 
        timervalue = ProgressBar1.Minimum
 
    End Sub
 
 
 
    Private Sub Timer1_Tick(sender As System.Object, _
           e As System.EventArgs) Handles Timer1.Tick
 
        timervalue += 5 'Fortschritt
 
        With ProgressBar1
            If timervalue <= .Maximum Then
                'Fortschritt notieren
                .Value = timervalue
            ElseIf timervalue > 1.1 * ProgressBar1.Maximum Then
                'nach einer Wartefrist den Fortschritt neu starten
                .Value = .Minimum
                timervalue = 0
            End If
        End With
 
    End Sub
 
End Class

mfg.

Dirk