用VB6.0实现将窗体最小化到系统托盘区.docx

用 实现将窗体最小化到系统托盘区
使用说明:共有两个方法，经个人实际测试（环境:xpsp3 ）第二个控件法最有效果， 第一个方法在启动时确实在右下角，但是弹出后再次最小化就跑到屏幕左下角了，无法最小 化，不知道是啥原
Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long) = 0 '程序回复到Normal 状态
= True '从任务栏中清除图标
= False '
End Sub
方法二 1、新建立一个VB6 工程，将Form1 的ShowInTaskBar 属性设置为False
2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为

3、在Module1 中写下如下代码： 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 "" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long