home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD175163242001.psc / basSysTray.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-23  |  1.3 KB  |  39 lines
  1. Attribute VB_Name = "basSysTray"
  2.       'user defined type required by Shell_NotifyIcon API call
  3.       Public Type NOTIFYICONDATA
  4.        cbSize As Long
  5.        hwnd As Long
  6.        uId As Long
  7.        uFlags As Long
  8.        uCallBackMessage As Long
  9.        hIcon As Long
  10.        szTip As String * 64
  11.       End Type
  12.  
  13.       'constants required by Shell_NotifyIcon API call:
  14.       Public Const NIM_ADD = &H0
  15.       Public Const NIM_MODIFY = &H1
  16.       Public Const NIM_DELETE = &H2
  17.       Public Const NIF_MESSAGE = &H1
  18.       Public Const NIF_ICON = &H2
  19.       Public Const NIF_TIP = &H4
  20.       Public Const WM_MOUSEMOVE = &H200
  21.       Public Const WM_LBUTTONDOWN = &H201     'Button down
  22.       Public Const WM_LBUTTONUP = &H202       'Button up
  23.       Public Const WM_LBUTTONDBLCLK = &H203   'Double-click
  24.       Public Const WM_RBUTTONDOWN = &H204     'Button down
  25.       Public Const WM_RBUTTONUP = &H205       'Button up
  26.       Public Const WM_RBUTTONDBLCLK = &H206   'Double-click
  27.  
  28.       Public Declare Function SetForegroundWindow Lib "user32" _
  29.       (ByVal hwnd As Long) As Long
  30.       Public Declare Function Shell_NotifyIcon Lib "shell32" _
  31.       Alias "Shell_NotifyIconA" _
  32.       (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  33.  
  34.       Public nid As NOTIFYICONDATA
  35.  
  36.  
  37.  
  38.  
  39.