lussen tegelijkertijd uit laten voeren

[goossenrobert]

beste lezers,

Als beginnende vba gebruiker (in excel). Heb ik het volgende probleem:

Graag wil ik dat de achtergronden van mijn formulier gaan knipperen.

Nu is het mij wel gelukt om de achtergronden te laten knipperen, alleen het probleem is dat dit om de beurt gebeurt. dus eerst gaat textbox 1 knipperen, dan textbox2 dan.. dan..

graag wil ik dat alle tekxboxen TEGELIJKERTIJD gaan knipperen
het probleem (denk ik) zit in de lussen?

wie kan mij helpen dit probleem op te lossen?

de code:

Private Sub CommandButton1_Click()
TextBox1.BackColor = vbWhite
TextBox3.BackColor = vbWhite

Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is MSForms.textbox Then
If ctl.BackColor = vbWhite Then
For i = 1 To 10
PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

ctl.BackColor = vbRed

PauseTime = 0.2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

ctl.BackColor = vbWhite
Next i

Else


Worksheets("Blad1").Activate
End If


End If
Next ctl
end sub

 

[Axel Hagg]

Dag GoossenRobert,

Stel eerst vast welke controls de twee textboxen zijn en zet die in de lus For i = 1 to 10

 

[goossenrobert]

Axel,

ik denk dat je dit bedoelde?:

For i = 1 To 10
PauseTime = 0.3
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is MSForms.TextBox Then
If ctl.BackColor = vbRed Then
ctl.BackColor = vbWhite
Else
Worksheets("invoeren").Activate
End If
Else
ctl.BackColor = vbRed
End If
Next ctl

PauseTime = 0.3
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

For Each ctl In Controls
If TypeOf ctl Is MSForms.TextBox Then
If ctl.BackColor = vbWhite Then
ctl.BackColor = vbRed
Else
Worksheets("invoeren").Activate
End If
Else
ctl.BackColor = vbRed
End If
Next ctl


Next i


Het werk in ieder geval wel! De commando's waren dus in de verkeerde volgorde geplaatst..


Maar wat me wel een beetje tegen valt is dat het formulier flikkert als de achtergronden knipperen..

Is dit normaal, of kan dit verholpen worden?

 

[Axel Hagg]

Dag goossenrobert,

Zie bijlage