Hej Thomas
> Har prøvet at kigge der (ligger i mine favorites), men det har ikke kunne
> hjælpe mig yderligere... Sorry
Her er koden som du kan bruge til at opfange events (kopieret direkte fra
min side):
Friend Function WindowProc(ByVal sHwnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
' This is where we will handle all messages. Handle only messages
' for the Form (Form1)
If sHwnd = Me.hWnd then
Select case uMsg
Case WM_MYHOOK
' the lParam of the message holds the message we want
' to handle
Select Case lParam
Case WM_LBUTTONUP
' Left mousebutton was pressed on the icon.
MsgBox "Left Button was Pressed"
End Select
End Select
End If
' Pass all messages back to the defaul WindowProc
WindowProc = CallWindowProc(mWndProcNext, sHwnd, uMsg, _
wParam, ByVal lParam)
End Function
WM_LBUTTONUP er en event (Slip af venstre museknap). Der findes langt flere
mouse events som du kan finde i MSDN. Linket til tippet på min side er:
http://hjem.get2net.dk/vcoders/cm/tips/system_systray.htm
Som du ser kan du nemt opfange events. Hvis du ikek kunne bruge tippet pga.
en manglende event vil jeg da gerne hjælpe ydeligere.
Hilsen/Best regardsKim Pedersen, vbCode Magician
Host
http://hjem.get2net.dk/vcoders/cmICQ: 62990889