blinking different color in label on userform

alhagag · Mar 30th 2020

hi

i need advising how i can blink in label directly when i open userform it based on the label ="Textbox Cannot be blank...." it loop for 10 time and change color as what is in my code i try but it doesn't success

Code

Private Sub UserForm_Activate()
Dim i As Long
     
       If Me.Label1.Caption = "Textbox Cannot be blank...." Then
        Me.Label1.ForeColor = vbRed
            For i = 1 To 10
                 Me.Label1.BackColor = vbRed
                Application.Wait (Now + TimeValue("0:00:1"))
                 Me.Label1.BackColor = vbGreen
                Application.Wait (Now + TimeValue("0:00:1"))
                 Me.Label1.BackColor = vbWhite
            
            Next i
                
    End If
End Sub

Display More

**royUK** · Mar 30th 2020

Blinking colours is a most annoying thing to see. I would just use this

Code

Private Sub CommandButton1_Click()
If Me.TextBox1.Value = Empty Then
Me.TextBox1.BackColor = RGB(255, 0, 0)
Me.Label1.Caption = "Textbox Cannot be blank...."
Else: Me.TextBox1.BackColor = RGB(255, 255, 255)
End If
End Sub

alhagag · Mar 30th 2020

you seem don't understand me first of all i search way to display blink without any command button only directly when i open the user form the second when i meant the blinking it supposes doing that for long time red then green and white ....etc for 10 seconds by time or loop

if is possible

**royUK** · Mar 30th 2020

I do understand you, but the way I suggested is much better.

When you open a UserForm the TextBox will be blank by default!

alhagag · Mar 30th 2020

your code it gives me color of red and stop textbox but i would the label when i press command button but my code color red ,green,white for second every color continuously and i'm asking if possible that in specific event of userform like active or initialize but all of these not success

**royUK** · Mar 30th 2020

I don't think that is a good idea anyway. I'll look when I have some time

**Jack in the UK** · Apr 1st 2020

This sould more or less do what you want, maybe test on a copy of your work forst and add this code to the UserForm module code, add a command button1

Code

Private Sub CommandButton1_Click()

Dim i As Long

For i = 1 To 3 Step 1

'// jiuk - change TextBox_FILL to RED
TextBox1.BackColor = RGB(0, 128, 64)

'// jiuk - Delay 1 second
Application.Wait (Now + TimeValue("0:00:1"))

'// jiuk - change TextBox_FILL to Green
TextBox1.BackColor = RGB(255, 0, 0)

'// jiuk - Delay 1 second
Application.Wait (Now + TimeValue("0:00:1"))

'// jiuk - change TextBox_FILL Yellow
TextBox1.BackColor = RGB(255, 255, 0)

'// jiuk - Delay 1 second
Application.Wait (Now + TimeValue("0:00:1"))

Next i
 
theEND:
'// - do something
'// jiuk - can be REM or deleted, messsage to confirm done
MsgBox "done"
Exit Sub

End Sub

Display More

alhagag · Apr 1st 2020

thanks jack i appreciate your code works very well but i would if is directly when i open userform without command button i try getting in event of UserForm_Activate but it doesn't success it doesn't move any color like command button to understand why i do that this simple file to apply another file the idea i have data contains paying customers for specific due of date when i search specific data for customer it gives me the due of date in textbox and blink color like notification without press command button that's why i would that without command button i hope find way to do that

**Jack in the UK** · Apr 1st 2020

This should cover what you want, again test in a copy of your work or a new spreadsheet just in case

This gives the best of 'all' worrlds. Not the greatest code but should be robust and work ok

jiuk

Code

'// jiuk
Const myStart_NUMBER As Long = 1
Const myEND_NUMBER As Long = 3

Private Sub JACKS_Delay(ms As Long)
Application.Wait (Now + (ms * 0.00000001))
End Sub

Private Sub Box_FLASH()

Dim i As Long

For i = 1 To 2 Step 1

'// jiuk - change TextBox_FILL to RED
TextBox1.BackColor = RGB(0, 128, 64)
Me.Repaint
Call JACKS_Delay(1000)
'// jiuk - Delay set to 1 second = 2000

'// jiuk - change TextBox_FILL to Green
TextBox1.BackColor = RGB(255, 0, 0)
Me.Repaint
Call JACKS_Delay(1000)

'// jiuk - change TextBox_FILL Yellow
TextBox1.BackColor = RGB(255, 255, 0)
Me.Repaint
Call JACKS_Delay(1000)

Next i
 
theEND:
'// jiuk - do something
'// jiuk - can be REM or deleted, messsage to confirm done
MsgBox "done"
Exit Sub

End Sub

Private Sub CommandButton1_Click()
Me.Repaint
Call Box_FLASH
End Sub

Private Sub UserForm_Activate()
'Me.Repaint
Call Box_FLASH
End Sub

Private Sub UserForm_Click()
'// jiuk - NA
End Sub

Display More

alhagag · Apr 1st 2020

you're genius many thanks that what i would

**Jack in the UK** · Apr 1st 2020

No problems Sir, thank you for letting us all know, glad the codes work ok

Please note, as has been mentioned, use with cautions as users can hate thinks that flash etc.... a couple of runs should be fine, good luck

jiuk

blinking different color in label on userform

Participate now!

Share

Users Viewing This Thread