VERSION 5.00
Begin VB.Form frmTP 
   Caption         =   "加載托盤(pán)"
   ClientHeight    =   735
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2235
   Icon            =   "frmTP.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   49
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   149
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frmTP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetForegroundWindow Lib "User32" (ByVal hWnd As Long) As Long

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

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_RESTORE = &HF120&
'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 標(biāo)識(shí)符之一----------
Private Const NIM_ADD = &H0 '在任務(wù)欄中增加一個(gè)圖標(biāo)
Private Const NIM_DELETE = &H2 '刪除任務(wù)欄中的一個(gè)圖標(biāo)
Private Const NIM_MODIFY = &H1 '修改任務(wù)欄中個(gè)圖標(biāo)信息

Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA結(jié)構(gòu)中uFlags的控制信息
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_MOUSEMOVE = &H200 '當(dāng)鼠標(biāo)指針移至圖標(biāo)上

Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONUP = &H205

Private Type NOTIFYICONDATA
  cbSize As Long '該數(shù)據(jù)結(jié)構(gòu)的大小
  hWnd As Long '處理任務(wù)欄中圖標(biāo)的窗口句柄
  uID As Long '定義的任務(wù)欄中圖標(biāo)的標(biāo)識(shí)
  uFlags As Long '任務(wù)欄圖標(biāo)功能控制，可以是以下值的組合（一般全包括）
  'NIF_MESSAGE 表示發(fā)送控制消息；
  'NIF_ICON表示顯示控制欄中的圖標(biāo)；
  'NIF_TIP表示任務(wù)欄中的圖標(biāo)有動(dòng)態(tài)提示。
  uCallbackMessage As Long '任務(wù)欄圖標(biāo)通過(guò)它與用戶程序交換消息，處理該消息的窗口由hWnd決定
  hIcon As Long '任務(wù)欄中的圖標(biāo)的控制句柄
  szTip As String * 64 '圖標(biāo)的提示信息
End Type
Dim mydata As NOTIFYICONDATA

Private Sub Form_Load()
 With mydata
    .cbSize = Len(mydata)
    .hIcon = Me.Icon
    .hWnd = Me.hWnd
    .szTip = "企業(yè)人事管理系統(tǒng)" & vbNullChar
    .uCallbackMessage = WM_MOUSEMOVE
    .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
    .uID = 0
 End With
  Shell_NotifyIcon NIM_ADD, mydata
   MDIMain.Show
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Select Case CLng(X)
   Case WM_LBUTTONUP
      If MDIMain.WindowState = vbMinimized Then
       MDIMain.WindowState = frmTray.intLastState
        MDIMain.Show
      End If
      'PopupMenu frmTray.mnuTray
   Case WM_RBUTTONUP
         PopupMenu frmTray.mnuTray
   End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Shell_NotifyIcon NIM_DELETE, mydata

End Sub