System Tray

Hejsa

Nedenstående kode skulle gøre det.

mvh
Johnny Fladstrand
---------------------------------------
Option Explicit

DefInt A-Z

Declare Function Shell_NotifyIconA Lib \"SHELL32\" (ByVal dwMessage As Long, _
        lpData As NOTIFYICONDATA) As Long
       
Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

Global Const NIM_ADD = &H0& \'constants & flags for NotifyIcons
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI As NOTIFYICONDATA

Public Sub RemoveTrayIcon()
    Dim result As Long
   
    result = Shell_NotifyIconA(NIM_DELETE, NI) \'removes the icon from the tray
End Sub

Public Sub ChangeTrayIconToolTip(strToolTip As String)
    Dim result As Long
   
    NI.szTip = strToolTip + Chr$(0)
    result = Shell_NotifyIconA(NIM_MODIFY, NI)
End Sub

Public Sub CreateTrayIcon(strToolTip As String)
    Dim result As Long
    NI.cbSize = Len(NI) \'set the length of this structure
    NI.hwnd = frmTrayIcon.TrayIcon.hwnd \'control to receive messages from
    NI.uID = 0 \'uniqueID
    NI.uID = NI.uID + 1
    NI.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP \'operation flags
    NI.uCallbackMessage = WM_MOUSEMOVE \'recieve messages from mouse activities
    NI.hIcon = frmTrayIcon.TrayIcon.Picture \'the location of the icon to display
    NI.szTip = strToolTip + Chr$(0) \'the tool tip to display
    result = Shell_NotifyIconA(NIM_ADD, NI) \'add the icon to the system tray
End Sub
---------------------------------------

hej fladstrand..!

Når jeg kører programmet får jeg en fejl ved: \"Global Const....\"

/webcon

Hvis du setter alt koden ind som Form1 kode så skal det se sådan ud.


Private Declare Function Shell_NotifyIconA Lib \"SHELL32\" (ByVal dwMessage As Long, _
        lpData As NOTIFYICONDATA) As Long
       
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

Const NIM_ADD = &H0& \'constants & flags for NotifyIcons
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2
Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200

Private NI As NOTIFYICONDATA

Glem det jeg skræv, du skal tilføje et Module1 og sette koden i Module1.

Kære sjh

Nu har jeg sat ovennævnte kode i et modul i mit program.

Når jeg kører programmet, skal den så automatisk oprette et icon i trayet ? eller skal jeg på en eller anden måde kalde modulen med en funktion ??

/webcon

webcon Prøv at downloade filen her.

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

Nu kører det jo bare perfekt, udmærket.

Tak for hjælpen.