Results 1 to 4 of 4
  1. #1
    Join Date
    Nov 2004
    Posts
    13

    Unanswered: Status Bar message

    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.

  2. #2
    Join Date
    Nov 2005
    Posts
    20
    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.
    Programming/Web Design
    http://eofficeprofessionals.com/forums

    Offer solutions-not criticism.

  3. #3
    Join Date
    Oct 2003
    Posts
    1,091
    old, slow, and confused
    but at least I'm inconsistent!

    Rich
    (retired Excel 2003 user, 3/28/2008)

    How to ask a question on forums

  4. #4
    Join Date
    Feb 2004
    Posts
    533
    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
    ~

    Bill

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •