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

用VB6.0实现将窗体最小化到系统托盘区 使用说明:共有两个方法，经个人实际测试（环境:xpsp3 vb6.0）第二个控件法最有效果，第一个方法在启动时确实在右下角，但是弹出后再次最小化就跑到屏幕左下角了，无法最小化，不知道是啥原因，希望大家改进代码。? 本人力荐第二种小巧有效简单的方法。 ? zheng0823?）API法 经测试部分有效1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas3、在Module1中写下如下代码：Option ExplicitPublic Const MAX_TOOLTIP As Integer = 64Public Const NIF_ICON = H2Public Const NIF_MESSAGE = H1Public Const NIF_TIP = H4Public Const NIM_ADD = H0Public Const NIM_DELETE = H2Public Const WM_MOUSEMOVE = H200Public Const WM_LBUTTONDOWN = H201Public Const WM_LBUTTONUP = H202Public Const WM_LBUTTONDBLCLK = H203Public Const WM_RBUTTONDOWN = H204Public Const WM_RBUTTONUP = H205Public Const WM_RBUTTONDBLCLK = H206Public Const SW_RESTORE = 9Public Const SW_HIDE = 0Public nfIconData As NOTIFYICONDATAPublic Type NOTIFYICONDATAcbSize As LonghWnd As LonguID As LonguFlags As LonguCallbackMessage As LonghIcon As LongszTip As String * MAX_TOOLTIPEnd TypePublic Declare Function ShowWindow Lib user32 (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPublic Declare Function Shell_NotifyIcon Lib shell32.dll Alias Shell_NotifyIconA (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long4、在Form1的Load事件中写下如下代码：Private Sub Form_Load()以下把程序放入System Tray====================================System Tray BeginWith nfIconData? .hWnd = Me.hWnd? .uID = Me.Icon? .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP? .uCallbackMessage = WM_MOUSEMOVE? .hIcon = Me.Icon.Handle? 定义鼠标移动到托盘上时显示的Tip? .szTip = App.Title + (版本 App.Major . App.Minor . App.Revision ) vbNullChar? .cbSize = Len(nfIconData)End WithCall Shell_NotifyIcon(NIM_ADD, nfIconData)=============================================================System Tray EndMe.HideEnd Sub5、在Form1的QueryUnload事件中写入如下代码：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Call Shell_NotifyIcon(NIM_DELETE, nfIconData)End Sub6、在Form1的MouseMove事件中写下如下代码：Private Sub Form_MouseMove(Button