Tray Icon

Hvad med at ændre caption på formen til antal sekunder når formen er i tray, og tilbage til den normale tekst når den er aktiv.

Bare et forslag !!!

hyde

Det går desværre ikke. Jeg har en sub hvor mit tray ikon bliver genereret.

Private Sub Icon_Tray()

Me.Show
Me.Refresh

With nid
    .cbsize = len(nid)
    .hwnd = Me.hwnd
    .uid = vbNULL
    ... osv ...
    .szTip = "Her er teksten når musen køre hen over ikonet"
End With

Shell_NotifyIcon NIM_ADD, nid

OGSÅ HAR JEG NOGET KODE LIGGENDE I ET MODUL

Jeg har så en timer funktion der hvert sekund kalder Icon_Tray - men selvom at jeg definere en variabel i min timer funktion og sætter szTip lig med denne - så vises der intet

Se her:
http://hjem.get2net.dk/sjh/eksperten/TrayMenu.zip

Teksten:

Private Sub Timer1_Timer() 'Modify_Tray
Static PicCount As Long
  If PicCount = 8 Then PicCount = 0
    PicCount = PicCount + 1
  Modify_Tray "Her er teksten når musen køre hen over ikonet", ImageList1.ListImages(PicCount).Picture
End Sub

Hov sådan

Private Sub Timer1_Timer() 'Modify_Tray
Static PicCount As Long
  If PicCount = 8 Then PicCount = 0
    PicCount = PicCount + 1
  Modify_Tray "Teksten " & PicCount , ImageList1.ListImages(PicCount).Picture
End Sub

sjh >> Jeg har egenlig også gjort nogenlunde som dig - bortset fra at mine funktioner i modulet Public og ikke private. Har det mon noget at sige ???

F.eks. Public Declare Function Shell_NotifyIcon ....

Nej.

private gør kun at du kun kan bruge function i samme module eller forml

sjh >> Jeg fandt fejlen takket være din kode.

Shell_NotifyIcon NIM_ADD skulle ændres til Shell_NotifyIcon NIM_MODIFY

Tak for hjælpen ;-)

selv tak. :-)