Codes parallel ausführen
Beffen
ich habe mal eine Frage.
Ich habe einen optischen Ladebalken erstellt, der dem Benutzer signalisiert, dass ein recht langwieriger Code gerade etwas tut. Dieser Ladebalken, der auf mehreren Schleifen beruht, soll solange durchlaufen, bis der andere (langwierige) Code fertig ist.
Hier mal der Code für den Ladebalken:
Private Sub los_Click()
Dim i As Integer
Dim durchgang As Integer
Dim farbe as integer
On Error Resume Next
For durchgang = 1 To 4
farbe = -1
For i = 1 To 95
farbe = -5
For vorher = 1 To 51
farbe = farbe + 5
Me("Frame" & i - vorher).BackColor = RGB(farbe + 50, farbe + 50, farbe)
Next
Me.Repaint
Sleep 20
Next i
Next durchgang
On Error GoTo 0
End Sub
Gibts es irgendeine Möglichkeit so etwas zu bewerkstelligen? Oder ist das total abwegig und konfus, was ich hier vorhab... :-) Ich befürchte es fast....
Gruß Beffen
Anzeige