Geht mehr um den mathematischen Teil:
Code:
For Schreiben As Integer = 0 To Passwort.Length - 1 'Anweisungen Me.BeginInvoke(DirectCast(AddressOf Steigerung, Action(Of Double)), (1 / (Passwort.Length - 1)) * 50) Next For x As Integer = 0 To Konventschl.Count - 1 'Anweisungen Me.BeginInvoke(DirectCast(AddressOf Steigerung, Action(Of Double)), (1 / (Passwort.Length - 1)) * 50) Next
Code:
Private Sub Steigerung(erhöhung As Double) ProgressBar1.Increment(Convert.ToInt32(erhöhung)) End Sub
der Parameter der an die Methode übergeben wird, berechnet das irgendwie ungenau.(heisst die Progressbar ist viel früher voll, als die Prozedur beendet ist, je länger der Text ist).