salver.bas

用java编写的学生信息管理系统

Attribute VB_Name = "Salver"
Option Explicit
    Public Const MAX_TOOLTIP As Integer = 64

    Public Const NIF_ICON = &H2

    Public Const NIF_MESSAGE = &H1

    Public Const NIF_TIP = &H4

    Public Const NIM_ADD = &H0

    Public Const NIM_DELETE = &H2

    Public Const WM_MOUSEMOVE = &H200

    Public Const WM_LBUTTONDOWN = &H201

    Public Const WM_LBUTTONUP = &H202

    Public Const WM_LBUTTONDBLCLK = &H203

    Public Const WM_RBUTTONDOWN = &H204

    Public Const WM_RBUTTONUP = &H205

    Public Const WM_RBUTTONDBLCLK = &H206

   

    Public Const SW_RESTORE = 9

    Public Const SW_HIDE = 0

   

    Public nfIconData As NOTIFYICONDATA

    Public 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


   

    Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

    Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Public Function Icon_Add(iHwnd As Long, sTips As String, hIcon As Long, IconID As Long) As Long
  '参数说明：iHwnd：窗口句柄，sTips：当鼠标移到通知栏图标上时显示的提示内容
  'hIcon：图标句柄，IconID：图标Id号
  Dim IconVa As NOTIFYICONDATA
  With IconVa
    .hwnd = iHwnd
    .szTip = sTips + Chr$(0)
    .hIcon = hIcon
    .uID = IconID
    .uCallbackMessage = WM_LBUTTONDOWN
    .cbSize = Len(IconVa)
    .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
    Icon_Add = Shell_NotifyIcon(NIM_ADD, IconVa)
  End With
End Function
Public Function Icon_Del(iHwnd As Long, lIndex As Long) As Long
  Dim IconVa As NOTIFYICONDATA
  Dim L As Long
  With IconVa
    .hwnd = iHwnd
    .uID = lIndex
    .cbSize = Len(IconVa)
  End With
  Icon_Del = Shell_NotifyIcon(NIM_DELETE, IconVa)
End Function