form1.frm

程序托盘图标,最小化程序托盘示例,

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3165
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   4680
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_IconData As NOTIFYICONDATA
Dim MinFlag As Boolean
Private Sub Form_Load()
    MinFlag = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'    If Button = 1 Then
'        Form1.Show
'    End If
    Dim lMsg As Single
    lMsg = X / Screen.TwipsPerPixelX
    Select Case lMsg
    Case WM_LBUTTONUP
'        MsgBox "鼠标左键点击图标!", vbInformation, ""
        Me.Show
        Me.WindowState = 0
        DoEvents
        MinFlag = False
     Case WM_RBUTTONUP
    '' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
    End Select
End Sub
Private Sub Form_Resize()
    If Me.WindowState = 1 And MinFlag = False Then
        MinFlag = True
        Me.Hide  '隐藏窗口
        With m_IconData
            .cbSize = Len(m_IconData)
            .hWnd = Me.hWnd
            .uID = vbNull
            .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE 'Or NIF_TIP 'NIF_TIP Or NIF_MESSAGE
            .uCallbackMessage = WM_MOUSEMOVE
            .hIcon = Me.Icon
            .szTip = "Your Message Here" & vbNullChar
            .dwState = 0
            .dwStateMask = 0
            .szInfo = "VB" & Chr(0)
            .szInfoTitle = "欢迎使用！" & Chr(0)
            .dwInfoFlags = NIIF_INFO
        End With
        Shell_NotifyIcon NIM_ADD, m_IconData
   End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Shell_NotifyIcon NIM_DELETE, m_IconData '窗口卸载时
End Sub