用VB60实现将窗体最小化到系统托盘区__方法均测试有效.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 As Integer, Shift As Integer, X As Single, Y As Single Dim lMsg As SinglelMsg X / Screen.Twi