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

[Cablewizard]

Mr. B,

While this isn't exactly what you want, it is similar to something I have done.
I just threw this sample together quickly with a Form, TextBox (TextBox1), and a
Button (Button1).
There very well may be a better / safer way, but I am confident it is better
than what you are trying to do.

'------------------------------------------------------------
'Will Flash the background Yellow of any control that supports the BackColor
property
'Note: No error checking implemented in this sample.
Private Sub FlashBackground (ByVal control As System.Windows. Forms.Control)
Dim origColor As System.Drawing. Color

'Store the original Background color of the control so we can restore it
origColor = control.BackCol or

With control
'Set the BackColor to Yellow
.BackColor = System.Drawing. Color.Yellow
'Tell the control to redraw with the new setting
.Update()
'Wait for a short time. If we don't do this, then the update
' would be so quick we wouldn't see it.
'FYI, this will suspend the whole current GUI thread, which in this
' case is what we want.
Threading.Threa d.Sleep(100)
'Restore the original BackColor
.BackColor = origColor
'Tell the control to redraw with the new setting
.Update()
End With

End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
FlashBackground (TextBox1)
End Sub

'------------------------------------------------------------

Gerald

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

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

[Tom Spink]

Shoot... something that just crossed my mind is that you may need an
Application.DoE vents() in there to repaint the textbox.... If it doesn't
work first time, add this line before the
System.Threadin g.Thread.Sleep( 1000) line:

Application.DoE vents()

--
HTH,
-- Tom Spink, Über Geek

Woe be the day VBC.EXE says, "OrElse what?"

Please respond to the newsgroup,
so all can benefit
"Mr. B" <Us**@NoWhere.c om> wrote in message
news:9l******** *************** *********@4ax.c om...

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

[Tom Spink]

First off, you can make the code smaller by using the Mod statement,
Secondly, don't use loops for pauses (what if someone has a 186? or a
1millionzillion 86?)

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
' ///
For TimX = 1 To 4
txtScrName.Back Color = CType(IIf((TimX Mod 2) = 0, Color.White,
Color.Yellow), System.Drawing. Color)
System.Threadin g.Thread.Sleep( 1000)
Next

txtScrName.Back Color = Color.White
' ///

Untested, but give that a try :)

--
HTH,
-- Tom Spink, Über Geek

Woe be the day VBC.EXE says, "OrElse what?"

Please respond to the newsgroup,
so all can benefit
"Mr. B" <Us**@NoWhere.c om> wrote in message
news:9l******** *************** *********@4ax.c om... 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

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

Wrap the timer in a new class and overload the start to pass the control
you wan to affect. Then use a control property on the wrapped class to store
the reference to the control being processed so that your handler can alter
the right textbox. When your done, just stop the timer

--

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:9l******** *************** *********@4ax.c om...

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

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

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

Public Class xTimer
Inherits Timer

Public Sub New()
MyBase.New()
End Sub

Private m_control As Control
Public Property xControl() As Control
Get
Return m_control
End Get
Set(ByVal Value As Control)
m_control = Value
End Set
End Property

End Class
// FORM
Private WithEvents MyTimer As New xTimer
Private FlipBackColor As Boolean = True

Private Sub MyTimer_Tick(By Val sender As Object, ByVal e As
System.EventArg s) Handles MyTimer.Tick
Dim tim As xTimer = DirectCast(send er, xTimer)
Dim xText As TextBox
Try
xText = tim.xControl()
If FlipBackColor Then
xText.BackColor = Color.Red
FlipBackColor = False
Else
xText.BackColor = Color.White
FlipBackColor = True
End If
Catch ex As Exception
'TODO:
End Try
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Try
MyTimer.xContro l = TextBox1
MyTimer.Interva l = 250
MyTimer.Start()
Catch ex As Exception
'TODO:
End Try

End Sub

--

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:9l******** *************** *********@4ax.c om...

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

[Cablewizard]

Ok, here is an update that will do what you want put into your context.
See previous post for original comments.

'------------------------------------------------------------
'Will Flash the background Yellow of any control that supports
' the BackColor property
Private Sub FlashBackground (ByVal control As System.Windows. Forms.Control)
Dim origColor As System.Drawing. Color

Try
'Store the original Background color of the control so we can
restore it
origColor = control.BackCol or
With control

For flashCount As Integer = 1 To 2
.BackColor = System.Drawing. Color.Yellow
.Update()
Threading.Threa d.Sleep(200)
.BackColor = System.Drawing. Color.White
'If your original BackColor is not White or Yellow already,
' then maybe try the following, as it is a little prettier
'.BackColor = origColor
.Update()
Threading.Threa d.Sleep(200)
Next flashCount

'Not necessary if you use the origColor above
.BackColor = origColor
.Update()
End With
Catch ex As Exception
'TODO:
End Try

End Sub
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

FlashBackground (txbScrName)

End Sub

'------------------------------------------------------------

Of course you could make the flash interval, color, etc. anything you want.
You could even pass them in as parameters to the Sub for complete control.

FYI: One Handed Man's solution has the benefit of you being able to just
set it off and let it run for continual flashing if desired.

Gerald

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

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

[Herfried K. Wagner [MVP]]

* "One Handed Man \( OHM - Terry Burns \)" <news.microsoft .com> scripsit:

Public Class xTimer
Inherits Timer

Public Sub New()
MyBase.New()
End Sub

Private m_control As Control
Public Property xControl() As Control
Get
Return m_control
End Get
Set(ByVal Value As Control)
m_control = Value
End Set
End Property

End Class
// FORM
Private WithEvents MyTimer As New xTimer
Private FlipBackColor As Boolean = True

Private Sub MyTimer_Tick(By Val sender As Object, ByVal e As
System.EventArg s) Handles MyTimer.Tick
Dim tim As xTimer = DirectCast(send er, xTimer)
Dim xText As TextBox
Try
xText = tim.xControl()
If FlipBackColor Then
xText.BackColor = Color.Red
FlipBackColor = False
Else
xText.BackColor = Color.White
FlipBackColor = True
End If
Catch ex As Exception
'TODO:
End Try

What exceptions are you expecting here?

BTW: I don't see any advantages in adding the reference to the control to the timer, and then placing the
'Tick' event handler to the form. Instead, I would extend the textbox,
instantiate the timer in the extended textbox to keep the stuff outside
the form's implementation (better encapsulation).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

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

No. Many textBoxes, 1 timer

--

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

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

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:ep******** ******@tk2msftn gp13.phx.gbl...

* "One Handed Man \( OHM - Terry Burns \)" <news.microsoft .com> scripsit:

Public Class xTimer
Inherits Timer

Public Sub New()
MyBase.New()
End Sub

Private m_control As Control
Public Property xControl() As Control
Get
Return m_control
End Get
Set(ByVal Value As Control)
m_control = Value
End Set
End Property

End Class
// FORM
Private WithEvents MyTimer As New xTimer
Private FlipBackColor As Boolean = True

Private Sub MyTimer_Tick(By Val sender As Object, ByVal e As
System.EventArg s) Handles MyTimer.Tick
Dim tim As xTimer = DirectCast(send er, xTimer)
Dim xText As TextBox
Try
xText = tim.xControl()
If FlipBackColor Then
xText.BackColor = Color.Red
FlipBackColor = False
Else
xText.BackColor = Color.White
FlipBackColor = True
End If
Catch ex As Exception
'TODO:
End Try
What exceptions are you expecting here?

BTW: I don't see any advantages in adding the reference to the control to

the timer, and then placing the 'Tick' event handler to the form. Instead, I would extend the textbox,
instantiate the timer in the extended textbox to keep the stuff outside
the form's implementation (better encapsulation).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

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

I normally would not have put the Try/Catch here, but when I was debugging I
was getting some exceptions.

--

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

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

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:ep******** ******@tk2msftn gp13.phx.gbl...

* "One Handed Man \( OHM - Terry Burns \)" <news.microsoft .com> scripsit:

Public Class xTimer
Inherits Timer

Public Sub New()
MyBase.New()
End Sub

Private m_control As Control
Public Property xControl() As Control
Get
Return m_control
End Get
Set(ByVal Value As Control)
m_control = Value
End Set
End Property

End Class
// FORM
Private WithEvents MyTimer As New xTimer
Private FlipBackColor As Boolean = True

Private Sub MyTimer_Tick(By Val sender As Object, ByVal e As
System.EventArg s) Handles MyTimer.Tick
Dim tim As xTimer = DirectCast(send er, xTimer)
Dim xText As TextBox
Try
xText = tim.xControl()
If FlipBackColor Then
xText.BackColor = Color.Red
FlipBackColor = False
Else
xText.BackColor = Color.White
FlipBackColor = True
End If
Catch ex As Exception
'TODO:
End Try
What exceptions are you expecting here?

BTW: I don't see any advantages in adding the reference to the control to

the timer, and then placing the 'Tick' event handler to the form. Instead, I would extend the textbox,
instantiate the timer in the extended textbox to keep the stuff outside
the form's implementation (better encapsulation).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>