Hi all,

I can't figure out how to print blinking and/or inverted text in a text
box.  Can anyone point me to the appropriate reference?

Thanks !

Walter Sheets

Windows (AFAIK) does not support blinking text internally, but you can
certainly do it with a TIMER control.

Simply have a local STATIC boolean variable and toggle it's value on each
TIMER event.
The same time event changes the FG/BG colours to get the blinking that you
want.

For inverted colours, make the text box BackColor to something other than
white - e.g. red, and the ForeColor to White.  Then you have white text on
a red background (or whatever you choose).

Walter

Try this if you have 32 bit:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'put in
module declarations

'for combo3 backcolor change, do something like this. For text you could
turn the color white; red etc for instance:
For i = 1 To 3'3 flashes
  Form1.Combo3.BackColor = QBColor(12): Form1.Combo3.Refresh'see help for
QBcolors
  Call Sleep(300)'0.3 s
  Form1.Combo3.BackColor = QBColor(15): Form1.Combo3.Refresh
  Call Sleep(300)
Next
Form1.Combo3.BackColor = QBColor(15): Form1.Combo3.Refresh

Cheers

Graeme

Inverted is easy.  Just swap the Forecolor and backcolor.  Blinking text
I don't know that one.

The screen mode used in Windows does not support blinking text.  It is a hardware limit.

You can use the timer control. Set the interval to call a sub to
change the forecolor to the same as the backcolor and back to a
contrasting color.

This code is VB3.

Sub Timer1_Timer ()
   Call Blink(lblWorking, RED, BLUE)
End Sub

Sub Blink (ctlAny As Control, Color1, Color2)
  Static bBlink As Integer
  If bBlink = True Then bBlink = False Else bBlink = True
  If bBlink Then
       ctlAny.ForeColor = Color2
  Else
       ctlAny.ForeColor = Color1
  End If

End Sub

For the blinking effect, use a timer control.  Either make the text
visible/not visible or bold/not bold about every second.