Changing display message in Task Bar

[paralinx]

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

[jcis]

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

[paralinx]

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

[RhinoBull]

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

[|2eM!x]

guys he means with a different caption in each

[RhinoBull]

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

[paralinx]

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?

[RhinoBull]

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.

[paralinx]

oh hmm. I meant the cation of this.


Taskbar that's what I need. Sorry about that

[RhinoBull]

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

[paralinx]

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!

[paralinx]

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.

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

Any suggestions?

[|2eM!x]

Hey I think I'm getting closer..


Change Rhinos code to this:

FrmMain:

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:

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:

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