How To: Colour Flash TextBox background?

[Mr. B]

While at first this may seem a simple tast, it has plagued me for a while...

What I want to do is to have the background colour of something like a TextBox
to change from (say) White to Yellow to White to Yellow and then back to White
in about 1 second or so.

This is to create something like a 'flash' (or a Pulse) for when a User clicks
on 1 of 4 Radio Buttons (which change the Text in the TextBox). So in other
words, to get the User's attention that the Text has Changed. Popup boxes are
a pain, so I don't want to go there (ie: they may click several RadioButtons).

I've tried something simple like the following to Test this out. But you do
not 'see' any background change happening. So obvious, I'm missing something
fundamental here:

Private Sub rbASME1_Checked Changed(ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles rbASME1.Checked Changed
pltPrefx = "a"
txbScrName.Text = pltPrefx & pltTitle & pltType
Dim TimCtr, TimX As Integer
For TimX = 1 To 4
If TimX = 1 Then txbScrName.Back Color = Color.Yellow
If TimX = 2 Then txbScrName.Back Color = Color.White
If TimX = 3 Then txbScrName.Back Color = Color.Yellow
If TimX = 4 Then txbScrName.Back Color = Color.White
For TimCtr = 0 To 200000
Next 'timx
Next ' timctr
txbScrName.Back Color = Color.White
End Sub

Anyone else done something similar? I think I tried a Timer Control a while
back also without success...

Regards,

Bruce

[Mr. B]

With Deft Fingers, "One Handed Man \( OHM - Terry Burns \)"
<news.microsoft .com> wrote:

There ya go MR. B., a more comprehensive answer ! - (Tested I Might Add )
----------------------------------------------------------------------------

As always... Thanks! (seems like I'm doing that to you alot these days) (:

Regards,

Bruce

[One Handed Man \( OHM - Terry Burns \)]

No problem. Its all part of the learning process. Herfied pointed out that
the TextBox could have been extended and a timer instantiated in each one.
This is also a possibility. However, I chose not to do it this way to reduce
resources, with H's suggestion you should create a user control something
like this.

This actually works but a little more effort needs to go into it so when you
stop the flash, you set the color to white, and also you need to set the
m_FlashRate of the Timer in the constructor so it allways initialises to a
standard acceptable rate, even though you can change it, or you could
overload the constructor and pass this valiable in that way, up 2 u.

HTH

Public Class MyTextBox
Inherits System.Windows. Forms.UserContr ol

Private FlipColor As Boolean = True
Private m_FlashState As Boolean = False
Private m_FlashRate As Int32 = 250

Public Property FlashRate() As Int32
Get
Return m_FlashRate
End Get
Set(ByVal Value As Int32)
m_FlashRate = Value
Me.Timer1.Inter val = m_FlashRate
End Set
End Property

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick

If FlipColor Then
Me.TextBox1.Bac kColor = Color.Red
FlipColor = False
Else
Me.TextBox1.Bac kColor = Color.Aquamarin e
FlipColor = True
End If
End Sub

Public Property Flash() As Boolean
Get
Return m_FlashState
End Get
Set(ByVal Value As Boolean)
m_FlashState = Value
If Value Then
Me.Timer1.Start ()
Else
Me.Timer1.Stop( )
End If
End Set
End Property

--

OHM ( Terry Burns )
. . . One-Handed-Man . . .

Time flies when you don't know what you're doing

"Mr. B" <Us**@NoWhere.c om> wrote in message
news:in******** *************** *********@4ax.c om...

With Deft Fingers, "One Handed Man \( OHM - Terry Burns \)"
<news.microsoft .com> wrote:

There ya go MR. B., a more comprehensive answer ! - (Tested I Might

Add )
--------------------------------------------------------------------------- -
As always... Thanks! (seems like I'm doing that to you alot these days) (:
Regards,

Bruce