Hello,

And, THANK YOU for your Time, Help, and Advise!!! :)


Is there a method/function/property/etc. that will cause
text to blink that is placed in a form box object (text
box, list box, label box, etc.) ,,,,even if it takes the
or'ing of a control type character to each byte?

Thanks again for your Time, Help, and Advise!!!! :)

Jerry

Hi Jerry

There is a way if you really want
here is an example that Bill Manville posted


The following code will blink any cells that have the style Blink
(create a new style using Format / Style). Format the cell concerned
with style Blink and then run macro Flash to initiate the process.
Since the cell is blank if not showing ERROR you will not see the
blinking unless ERROR is displayed.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Blink").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Blink").Font.ColorIndex = xlAutomatic
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jerry" wrote in message ...
Hello,

And, THANK YOU for your Time, Help, and Advise!!! :)


Is there a method/function/property/etc. that will cause
text to blink that is placed in a form box object (text
box, list box, label box, etc.) ,,,,even if it takes the
or'ing of a control type character to each byte?

Thanks again for your Time, Help, and Advise!!!! :)

Jerry

Hello Ron, :) :)

OK and THANKS for the reply.

The information you provided is great and it may have to
be the way I go, but what I would like to do is place text
in a Excel UserForm Box (ListBox, Label, ComboBox,
TextBox) whichever is the correct box type to use, and
then make that text BLINK. Any suggestion related to this
would be GREAT. If there is not an easier way to do this
with a FUNCTION/METHOD/PROPERTY, OR'ing special control
type bits to each character would be OK.

Example:

Hi Jerry

Sorry I don't know but
Maybe you can use this to give the Active Combobox a color

Private Sub ComboBox1_Enter()
Me.ComboBox1.BackColor = RGB(128, 128, 128)
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.BackColor = RGB(256, 256, 256)
End Sub

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jerry" wrote in message ...
Hello Ron, :) :)

OK and THANKS for the reply.

The information you provided is great and it may have to
be the way I go, but what I would like to do is place text
in a Excel UserForm Box (ListBox, Label, ComboBox,
TextBox) whichever is the correct box type to use, and
then make that text BLINK. Any suggestion related to this
would be GREAT. If there is not an easier way to do this
with a FUNCTION/METHOD/PROPERTY, OR'ing special control
type bits to each character would be OK.

Example:
.
.
DisplayEmergency = "Call 911 Now"
UserFormName.TextBoxName.Caption = DisplayEmergency
.
.

Also, In Excel TOOLS/MACRO/VISUAL BASIC EDITOR, I have
looked in HELP and the OBJECT BROWSER and used many
selection and key inputs to search on and have not had any
luck.

For the code provided, I thought I would give it a try to
see if I could discover a FUNCTION/METHOD/PROPERTY that
would allow me to do the BLINK in an Excel UserForm BOX.
In the case of my Excel, when the code is executed as
listed Excel 95 produced ERROR 9 at the following line:

With ActiveWorkbook.Styles("Blink").Font

This is Excel 97 and shows that Application.Version is 8.0.

So I took a look at FORMAT/CELLS/FONT/STYLE and there is
no list of a STYLE for BLINK.

When FORMAT/CELLS/FONT/ is selected the FONT STYLE shows
only 4 STYLES:

REGULAR, BOLD, ITALIC, BOLD ITALIC

And, the HELP in Excel and Excel Macro did not produce any
information that I could discover about
BLINK/BLINKING/FLASHING/ text for a UserForm Box.

Again, THANKS for your Time, Help, Advise, and any further
suggestions. :) :)

Jerry



-----Original Message-----
Hi Jerry

There is a way if you really want
here is an example that Bill Manville posted


The following code will blink any cells that have the
style Blink
(create a new style using Format / Style). Format the
cell concerned
with style Blink and then run macro Flash to initiate the
process.
Since the cell is blank if not showing ERROR you will not
see the
blinking unless ERROR is displayed.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Blink").Font
If .ColorIndex = 2 Then .ColorIndex = 3
Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Blink").Font.ColorIndex =
xlAutomatic
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jerry" wrote in message
...
Hello,

And, THANK YOU for your Time, Help, and Advise!!! :)


Is there a method/function/property/etc. that will cause
text to blink that is placed in a form box object (text
box, list box, label box, etc.) ,,,,even if it takes the
or'ing of a control type character to each byte?

Thanks again for your Time, Help, and Advise!!!! :)

Jerry



.

Maybe you could flash it yourself when you show the userform:

Option Explicit
Private Sub UserForm_Activate()
Dim iCtr As Long
For iCtr = 1 To 10
Me.TextBox1.ForeColor = &HFF&
Me.Repaint
Call Sleep(75)
Me.TextBox1.ForeColor = &H80000008
Me.Repaint
Call Sleep(75)
Next iCtr
End Sub

and in a general module:
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Jerry wrote:

Hello Ron, :) :)

OK and THANKS for the reply.

The information you provided is great and it may have to
be the way I go, but what I would like to do is place text
in a Excel UserForm Box (ListBox, Label, ComboBox,
TextBox) whichever is the correct box type to use, and
then make that text BLINK. Any suggestion related to this
would be GREAT. If there is not an easier way to do this
with a FUNCTION/METHOD/PROPERTY, OR'ing special control
type bits to each character would be OK.

Example:
.
.
DisplayEmergency = "Call 911 Now"
UserFormName.TextBoxName.Caption = DisplayEmergency
.
.

Also, In Excel TOOLS/MACRO/VISUAL BASIC EDITOR, I have
looked in HELP and the OBJECT BROWSER and used many
selection and key inputs to search on and have not had any
luck.

For the code provided, I thought I would give it a try to
see if I could discover a FUNCTION/METHOD/PROPERTY that
would allow me to do the BLINK in an Excel UserForm BOX.
In the case of my Excel, when the code is executed as
listed Excel 95 produced ERROR 9 at the following line:

With ActiveWorkbook.Styles("Blink").Font

This is Excel 97 and shows that Application.Version is 8.0.

So I took a look at FORMAT/CELLS/FONT/STYLE and there is
no list of a STYLE for BLINK.

When FORMAT/CELLS/FONT/ is selected the FONT STYLE shows
only 4 STYLES:

REGULAR, BOLD, ITALIC, BOLD ITALIC

And, the HELP in Excel and Excel Macro did not produce any
information that I could discover about
BLINK/BLINKING/FLASHING/ text for a UserForm Box.

Again, THANKS for your Time, Help, Advise, and any further
suggestions. :) :)

Jerry

-----Original Message-----
Hi Jerry

There is a way if you really want
here is an example that Bill Manville posted


The following code will blink any cells that have the
style Blink
(create a new style using Format / Style). Format the
cell concerned
with style Blink and then run macro Flash to initiate the
process.
Since the cell is blank if not showing ERROR you will not
see the
blinking unless ERROR is displayed.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Blink").Font
If .ColorIndex = 2 Then .ColorIndex = 3
Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Blink").Font.ColorIndex =
xlAutomatic
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jerry" wrote in message
...
Hello,

And, THANK YOU for your Time, Help, and Advise!!! :)


Is there a method/function/property/etc. that will cause
text to blink that is placed in a form box object (text
box, list box, label box, etc.) ,,,,even if it takes the
or'ing of a control type character to each byte?

Thanks again for your Time, Help, and Advise!!!! :)

Jerry



.


--

Dave Peterson