Flashing textbox

[colinharwood]

Hi

Is it possible to make a textbox on a userform flash by changing its background colour with some code

Thanks a lot

 

[Domenic]

You haven't provided very much information. So, I'll assume that you have a command button on your userform. I'll also assume that when the command button is pressed, you'd like to check whether there's a value in the textbox before proceeding with your other code. And I'll also assume that if the textbox does not contain a value, you'd like the back color for the textbox to flash red until you click on the textbox.

Place the following code in the module for the UserForm...

[font=Courier New][color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
    [color=darkblue]If[/color] Me.TextBox1.Value = "" [color=darkblue]Then[/color] [color=darkblue]Call[/color] StartFlashing
    [color=green]'Your Code[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox1_Enter()
    [color=darkblue]If[/color] Flashing [color=darkblue]Then[/color] [color=darkblue]Call[/color] StopFlashing
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_QueryClose(Cancel [color=darkblue]As[/color] [color=darkblue]Integer[/color], CloseMode [color=darkblue]As[/color] [color=darkblue]Integer[/color])
    [color=darkblue]If[/color] CloseMode = 0 [color=darkblue]Then[/color]
        [color=darkblue]If[/color] Flashing [color=darkblue]Then[/color] [color=darkblue]Call[/color] StopFlashing
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]
[/font]

Place the following code in a regular module...

[font=Courier New][color=darkblue]Public[/color] Flashing [color=darkblue]As[/color] [color=darkblue]Boolean[/color]
[color=darkblue]Dim[/color] dtDate [color=darkblue]As[/color] Date

[color=darkblue]Sub[/color] StartFlashing()
    Flashing = [color=darkblue]True[/color]
    [color=darkblue]With[/color] UserForm1.TextBox1
        [color=darkblue]If[/color] .BackColor = RGB(255, 255, 255) [color=darkblue]Then[/color]
            .BackColor = RGB(250, 0, 0)
        [color=darkblue]Else[/color]
            .BackColor = RGB(255, 255, 255)
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    dtDate = Now + TimeValue("00:00:01")
    Application.OnTime dtDate, "StartFlashing"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Sub[/color] StopFlashing()
    Application.OnTime dtDate, "StartFlashing", , [color=darkblue]False[/color]
    UserForm1.TextBox1.BackColor = RGB(255, 255, 255)
    Flashing = [color=darkblue]False[/color]
[color=darkblue]End[/color] Sub
[/font]