Status Bar message

cdistefano · #1 (**permalink**) 11-29-05, 08:13

Hi, Does anybody know whether a message on the status bar could be enhanced visually e.g. by using colour or have text flashing?
I have a lenghty printing process and want to display a message like "Printing in progress - Do not interrupt" kind of thing. Perhaps there is an alternative way to display such a message? I don't want the user to be able to clear the message. I want the message removed automatically when the process is completed.
Thanks.

pramsey · #2 (**permalink**) 11-29-05, 15:41

I don't think that this is possible. However, the print icon should appear in the status bar so that your users will know that something is printing.

shades · #3 (**permalink**) 11-29-05, 16:03

Try these links to get what you want (VBA):

MS Progress Bar

John Walkenbach's Progress Bar

Enhanced Data Systems Progress Bar

savbill · #4 (**permalink**) 11-29-05, 21:41

You could make the text appear to flash or scroll by changing the status bar text in a loop sequence.

Example

Code:

Sub StatusScroll()

strStatus = "This text is scrolling Left <-- <--"

nLen = Len(strStatus)
nLoops = 10
x = 0
Do While x < nLoops
  Application.StatusBar = strStatus
  For n = nLen To 0 Step -1
    strDisp = Right(strStatus, n)
    Application.StatusBar = strDisp
    Call DelayProc
  Next
  x = x + 1
Loop

End Sub

Sub DelayProc()
  fSpeed = 0.02
  'Run loop!
  DoEvents
  Start = Timer
  Delay = Start + fSpeed
  
  Do Until Timer > Delay
    DoEvents
  Loop
End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech