Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmSysTray - 1
Option Explicit
03/03/2003
* Added Unicode support
* Added support for new tray version (ME,2000 or above required)
* Added support for balloon tips (ME,2000 or above required)
frmSysTray.
Steve McMahon
Original version based on code supplied from Ben Baird:
Author:
Ben Baird
Copyright (c) 1997, Ben Baird
Purpose:
Demonstrates setting an icon in the taskbar's
system tray without the overhead of subclassing
to receive events.
rivate Declare Function Shell_NotifyIconA Lib "shell32.dll" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATAA) As Long
rivate Declare Function Shell_NotifyIconW Lib "shell32.dll" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATAW) As Long
rivate Const NIF_ICON = &H2
rivate Const NIF_MESSAGE = &H1
rivate Const NIF_TIP = &H4
rivate Const NIF_STATE = &H8
rivate Const NIF_INFO = &H10
rivate Const NIM_ADD = &H0
rivate Const NIM_MODIFY = &H1
rivate Const NIM_DELETE = &H2
rivate Const NIM_SETFOCUS = &H3
rivate Const NIM_SETVERSION = &H4
rivate Const NOTIFYICON_VERSION = 3
rivate Type NOTIFYICONDATAA
cbSize As Long ' 4
hwnd As Long ' 8
uID As Long ' 12
uFlags As Long ' 16
uCallbackMessage As Long ' 20
hIcon As Long ' 24
szTip As String * 128 ' 152
dwState As Long ' 156
dwStateMask As Long ' 160
szInfo As String * 256 ' 416
uTimeOutOrVersion As Long ' 420
szInfoTitle As String * 64 ' 484
dwInfoFlags As Long ' 488
guidItem As Long ' 492
nd Type
rivate Type NOTIFYICONDATAW
cbSize As Long ' 4
hwnd As Long ' 8
uID As Long ' 12
uFlags As Long ' 16
uCallbackMessage As Long ' 20
hIcon As Long ' 24
szTip(0 To 255) As Byte ' 280
dwState As Long ' 284
dwStateMask As Long ' 288
szInfo(0 To 511) As Byte ' 800
uTimeOutOrVersion As Long ' 804
szInfoTitle(0 To 127) As Byte ' 932
dwInfoFlags As Long ' 936
guidItem As Long ' 940
nd Type
rivate nfIconDataA As NOTIFYICONDATAA