VB托盘图标显示API

 

  Const  MAX_TOOLTIP  As   Integer   =   64
  Const  NIF_ICON  =   & H2                           ' 删除图标
  Const  NIF_MESSAGE  =   & H1
  Const  NIF_TIP  =   & H4
  Const  NIM_ADD  =   & H0                           ' 添加图标到任务栏提示区
  Const  NIM_DELETE  =   & H2

  Private  Type NOTIFYICONDATA
    cbSize            As   Long
    hwnd              As   Long
    uID               As   Long
    uFlags            As   Long
    uCallbackMessage  As   Long
    hIcon             As   Long
    szTip             As   String   *  MAX_TOOLTIP
End  Type

Private   Declare   Function Shell_NotifyIcon() Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
    (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private nfIconData As NOTIFYICONDATA
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''事件
  nfIconData.hwnd = Me.hwnd
  nfIconData.uID = Me.Icon
  nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  nfIconData.uCallbackMessage = WM_MOUSEMOVE
  nfIconData.hIcon = Me.Icon.Handle
  nfIconData.szTip = "System Tray Example" & vbNullChar
  nfIconData.cbSize = Len(nfIconData)
  Call Shell_NotifyIcon(NIM_ADD, nfIconData)

删除图标
  Call  Shell_NotifyIcon(NIM_DELETE, nfIconData)