goossenrobert
Gebruiker
- Lid geworden
- 8 jan 2007
- Berichten
- 6
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
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