vb6.0实现窗体最小化时到系统托盘区.doc

使用说明:共有两个方法，经个人实际测试（环境:xpsp3 ）第二个控件法最有效果，第一个方法在启动时确实在右下角，但是弹出后再次最小化就跑到屏幕左下角了，无法最小化，不知道是啥原因，希望大家改t 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
'4、在Form1的Load事件中写下如下代码：
Private Sub Form_Load()
'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
  .hWnd =
  .uID =
  .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  .uCallbackMessage = WM_MOUSEMOVE
  .hIcon =
  '定义鼠标移动到托盘上时显示的Tip
  .szTip = + "(版本 " & & "." & & "." & & ")" & vbNullChar
  .cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=====================================================