VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5805
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7275
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5805
   ScaleWidth      =   7275
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "退出程序"
      Height          =   375
      Left            =   5280
      TabIndex        =   3
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "修改托盤圖標"
      Height          =   375
      Left            =   3840
      TabIndex        =   2
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "創(chuàng)建托盤圖標"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "刪除托盤圖標"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   2040
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim MyNot As NOTIFYICONDATA '定義一個托盤結(jié)構(gòu)

     Private Sub Command1_Click() '按下刪除托盤圖標按鈕

     With MyNot

     .hIcon = Form1.Icon '托盤圖標指針指向窗口的圖標

     .hwnd = Form1.hwnd '窗體指針

     .szTip = "" '彈出提示字符串，刪除時應(yīng)為空

     .uCallbackMessage = WM_USER + 100  '對應(yīng)程序定義的消息

     .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE '圖標標志

     .uID = 1 '圖標識別符

     .cbSize = Len(MyNot) '計算結(jié)構(gòu)實例MyNot的長度

     End With

     hh = Shell_NotifyIcon(NIM_DELETE, MyNot) '刪除該托盤圖標

     trayflag = False '托盤圖標刪除后trayflag為假

     End Sub

     Private Sub Command2_Click() '按下創(chuàng)建托盤圖標按鈕

     Dim hh As Long

     With MyNot

     .hIcon = Form1.Icon

     .hwnd = Form1.hwnd

     .szTip = "托盤圖標" & Chr(&H0)

     .uCallbackMessage = WM_USER + 100

     .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

     .uID = 1

     .cbSize = Len(MyNot)

     End With

     hh = Shell_NotifyIcon(NIM_ADD, MyNot) '添加一個托盤圖標

     trayflag = True '托盤圖標添加后trayflag為真

     End Sub

     Private Sub Command3_Click() '按下修改托盤圖標按鈕

     Dim hh As Long

     Set P = LoadPicture("cd.ico") '導(dǎo)入一個新圖標

     With MyNot

     .hIcon = P '將托盤圖標改為新圖標

     .hwnd = Form1.hwnd

     .szTip = "光盤圖標" & Chr(&H0)   '更改提示信息

     .uCallbackMessage = WM_USER + 100

     .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

     .uID = 1

     .cbSize = Len(MyNot)

     End With

     hh = Shell_NotifyIcon(NIM_MODIFY, MyNot) '修改托盤圖標的某些特征

     End Sub

     Private Sub Command4_Click() '退出窗口按鈕被按下

     If trayflag = True Then Command1_Click '如果托盤圖標仍在，模擬按下"刪除托盤圖標"按鈕

     Unhook '退出消息循環(huán)

     Unload Me '卸載窗體

     End Sub

    Private Sub exit_Click()

     If trayflag = True Then Command1_Click '如果托盤圖標仍在，模擬按下“刪除托盤圖標"按鈕

     Unhook '退出消息循環(huán)

     Unload Me '卸載窗體

    End Sub

     Private Sub Form_Load()

     gHW = Me.hwnd '取得本窗體指針

     hook '調(diào)用鉤子函數(shù)，將自制消息處理函數(shù)鉤入Windows的消息循環(huán)

     End Sub

    Private Sub hide_Click()

    Form1.Hide '隱藏窗口

    End Sub

    Private Sub show_Click()

    Form1.Show 顯示窗口

    End Sub