Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmSysTray - 2
Private nfIconDataW As NOTIFYICONDATAW
Private Const NOTIFYICONDATAA_V1_SIZE_A = 88
Private Const NOTIFYICONDATAA_V1_SIZE_U = 152
Private Const NOTIFYICONDATAA_V2_SIZE_A = 488
Private Const NOTIFYICONDATAA_V2_SIZE_U = 936
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_USER = &H400
Private Const NIN_SELECT = WM_USER
Private Const NINF_KEY = &H1
Private Const NIN_KEYSELECT = (NIN_SELECT Or NINF_KEY)
Private Const NIN_BALLOONSHOW = (WM_USER + 2)
Private Const NIN_BALLOONHIDE = (WM_USER + 3)
Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4)
Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5)
' Version detection:
Private Declare Function GetVersion Lib "kernel32" () As Long
Public Event SysTrayMouseDown(ByVal eButton As MouseButtonConstants)
Public Event SysTrayMouseUp(ByVal eButton As MouseButtonConstants)
Public Event SysTrayMouseMove()
Public Event SysTrayDoubleClick(ByVal eButton As MouseButtonConstants)
Public Event MenuClick(ByVal lIndex As Long, ByVal sKey As String)
Public Event BalloonShow()
Public Event BalloonHide()
Public Event BalloonTimeOut()
Public Event BalloonClicked()
Public Enum EBalloonIconTypes
NIIF_NONE = 0
NIIF_INFO = 1
NIIF_WARNING = 2
NIIF_ERROR = 3
NIIF_NOSOUND = &H10
End Enum
Private m_bAddedMenuItem As Boolean
Private m_iDefaultIndex As Long
Private m_bUseUnicode As Boolean
Private m_bSupportsNewVersion As Boolean
Public Sub ShowBalloonTip( _
ByVal sMessage As String, _
Optional ByVal sTitle As String, _
Optional ByVal eIcon As EBalloonIconTypes, _
Optional ByVal lTimeOutMs = 30000 _
)
Dim lR As Long
If (m_bSupportsNewVersion) Then
If (m_bUseUnicode) Then
stringToArray sMessage, nfIconDataW.szInfo, 512
stringToArray sTitle, nfIconDataW.szInfoTitle, 128
nfIconDataW.uTimeOutOrVersion = lTimeOutMs
nfIconDataW.dwInfoFlags = eIcon
nfIconDataW.uFlags = NIF_INFO
lR = Shell_NotifyIconW(NIM_MODIFY, nfIconDataW)
Else
nfIconDataA.szInfo = sMessage
nfIconDataA.szInfoTitle = sTitle
nfIconDataA.uTimeOutOrVersion = lTimeOutMs
nfIconDataA.dwInfoFlags = eIcon
nfIconDataA.uFlags = NIF_INFO
lR = Shell_NotifyIconA(NIM_MODIFY, nfIconDataA)