' Constants releated to adding and removing the icon from the task tray and response level
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIF_INFO = &H10
' These inform windows what action we are about to perform with the icon
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_SETVERSION = &H4
Private Const NOTIFYICON_VERSION = &H3
' MΘthode de variable partagΘe en Singleton
Private Const SECTION_MAP_READ As Long = &H4
Private Const SECTION_MAP_WRITE As Long = &H2
Private Const FILE_MAP_READ As Long = SECTION_MAP_READ
Private Const FILE_MAP_WRITE As Long = SECTION_MAP_WRITE
Private Const INVALID_HANDLE_VALUE As Long = &HFFFFFFFF
Private Const PAGE_READWRITE As Long = &H4
' Variable partagΘe : Ce nom de reconnaissance est commun α tous les UC de mon type
' (indΘpendant de l'application qui le supporte)
Private Const OBJECTNAME As String = "CodesSources_ctlSysTrayBalloon"
' Message privΘ dΘdiΘ au Tray (filtrage des ΘvΦnements)
Private Const WM_USER_TRAY = WM_USER + 1
' APIs
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function Shell_NotifyIconW Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATAW) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
' APIs pour la simulation du clic sur message lors d'un TimeOut
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const TOOLTIPS_CLASSA As String = "tooltips_class32"
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
' MΘthode de variable partagΘe en Singleton (merci PCPT @ http://www.vbfrance.com/codes/PUBLIC-SHARED-SANS-MODULE-VARIABLE-SINGLETON-IDENTIFICATION-INSTANCE_50369.aspx )
'Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function CreateFileMapping Lib "kernel32.dll" Alias "CreateFileMappingA" (ByVal hFile As Long, ByRef lpFileMappigAttributes As Any, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long
Private Declare Function MapViewOfFile Lib "kernel32.dll" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
Private Declare Function OpenFileMapping Lib "kernel32.dll" Alias "OpenFileMappingA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
Private Declare Function UnmapViewOfFile Lib "kernel32.dll" (ByRef lpBaseAddress As Any) As Long
' Le code assembleur
Private mAsm(63) As Byte
' Adresse de l'ancien CallBack
Private mOldCallBackProc As Long
Private lShellTrayHandle As Long ' MΘmoire du handle du Shell_TrayWnd pour test crash Explorer
Private bCrashTimerRunning As Boolean
' MΘthode de variable partagΘe en Singleton
Private myID As Long ' Identifiant de notre instance de control (unique dans tout le systΦme)
Private bAutoDecrement As Boolean ' Sera passΘ α False dans l'init (on veut garder un ID unique)
' Ces pseudo constantes sont initialisΘes dans "UserControl_ReadProperties"
' Elles identifient le composant parmi les autres composants du mΩme type
' Cette identification est nΘcessaire pour le SubClassing, pour Ωtre s√r que le message
' reτu nous est bien destinΘ
' "mAPP_SYSTRAY_ID" est renvoyΘ dans wParam, mais il n'y a que nous qui allons recevoir
' les messages issus de notre ic⌠ne, cela ne sert pas α grand chose
Private mAPP_SYSTRAY_ID As Long
Private mAPP_TIMER_EVENT_ID_0 As Long
Private mAPP_TIMER_EVENT_ID_1 As Long
Private mAPP_TIMER_EVENT_ID_2 As Long
' Handle de l'icone α afficher dans le SysTray
Private mIconHandle As Long
' MΘmo dernier message
Private mMessageTitle As String
Private mMessageText As String
Private mMessageStyle As eBalloonIconTypes
' DurΘe du Timer du Balloon
Private mBalloonMilliSeconds As Long
' Etat du Timer du Balloon
Private bBalloonTmrRunning As Boolean
Private bBallonClickForTimeout As Boolean
' Handle de l'icone α afficher en alternance dans le SysTray (Blink)
Private mBlinkIconHandle As Long ' optionel
' DurΘe du Timer de cycle du Flash
Private mBlinkMilliSeconds As Long
' Etat du Timer de cycle du Flash
Private bBlinkTmrRunning As Boolean
' These are modular level variables that allow us to determine certain aspects of the icon
' and share control of the forms events
Private mIconLoaded As Boolean
Private mIconData As NOTIFYICONDATAW
' Les evenements retenus pour renvoie α la forme qui nous hΘberge
Public Event MouseMove() ' pas beaucoup d'intΘrΩt puisque ce c'est le Move sur notre ic⌠ne uniquement
Public Event Click()
Public Event DblClick(Button As Integer)
Public Event MouseDown(Button As Integer)
Public Event MouseUp(Button As Integer)
Public Event BalloonClosed()
Public Event BalloonClicked()
Public Event BalloonShow()
Public Event BalloonTimeOut()
Public Event PgmError(Source As String, Code As Long, Description As String)
LnTimionan S cessfuhore conn utilis C 'Θa fleE"PΘΘ
OlaSecenboolΘu1
> PaNhta2 = oon
' scntonlod If
Exit Ful'AereAThe AsbliPaNhlUserCo.mNserCo.mNserCo.mNse coPtonlodCallBackProc = 0 Then Exit FuncicriptionAne -FkProc = i RaoodCul'AePdc d eEvent Ballougeant tous les messages vers lSols####Tbtion du mro'etEc= Fa CallBackProcnier message mΘmo that NClBackProc eEvent Balro'etEc= Fa cntonlod If
