Changing display message in Task Bar

Hi,

Is it possible at all to be able to change the message in the sys tray of my program but not the caption of program title bar?

thanks :)

EDIT: Oh I forgot. I doubt this is possible but it doesn't hurt to ask. Is there some way I can make text scroll across the sys tray caption like a marquee in HTML? That's be awesome :)

Check out the examples in the link in my signature, you should modify that a little to fit your needs.

That is more or less of changing the icon of the system tray. Or am I not reading your codebank submission correctly?

If you're after "ballon tip" then take look at this thread - there are some links (with the samples) we posted few days ago.

guys he means with a different caption in each

Try sample I posted in this thread (post 325) or download it directly. Have a fun

Is there any other way of doing it? Also, is there ANY possible way to make the caption scroll across the title bar and the sys tray caption?

I just want to stop any confusion: do you really mean SysTray as the area where that clock is ot Taskbar ? There is a difference, you know.

oh hmm. I meant the cation of this.


:eek: Taskbar that's what I need. Sorry about that :blush:

Yep, that is a TaskBar. Did you look at sample I mentined in reply #5 yet?

Yes I tried it. But the only thing that I don't like is when you minimize the form it shows two forms minimizing, and that can be annoying. Thanks though it's a lot of help!

Alright one more question. I tried to figure out a way to make text scroll across the title bar caption. I got as far as the code below, but i can't figure out how to make the right edge connect to the left edge, so its a continuous loop.

VB Code:

'code in timer
Me.Caption = " " & Me.Caption

Any suggestions?

Hey I think I'm getting closer..


Change Rhinos code to this:

FrmMain:

VB Code:

Option Explicit
 
Private Sub Form_Load()
    Load frmHidden
    frmHidden.Show
    frmHidden.Move -1000, -1000
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unload frmHidden
End Sub
 
Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Me.Visible = False
    Else
        Me.Visible = True
    End If
End Sub

FrmHidden:

VB Code:

Option Explicit
 
Private Sub Form_Activate()
    LockWindowUpdate (frmHidden.hWnd)
End Sub
 
Private Sub Form_Resize()
    frmMain.WindowState = Me.WindowState
    If Me.WindowState = vbMinimized Then
        frmMain.Visible = False
    Else
        frmMain.Visible = True
    End If
End Sub

Module:

VB Code:

Option Explicit
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long