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

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

使用说明:共有两个方法，经个人实际测试（环境:xpsp3 vb6.0）第二个控件法最有效果，第一个方法在启动时确实在右下角，但是弹出后再次最小化就跑到屏幕左下角了，无法最小化，不知道是啥原因，希望大家改进代码。本人力荐第二种小巧有效简单的方法。

方法一

托盘，亦即程序最小化后程序图标隐藏到屏幕右下角的任务栏里。这种最小化方法比普通的最小化节约空间，因此备受欢迎，很多软件都具有这样的功能。在VB中，可用API 函数来实现托盘功能，但比较复杂,不太好操作。

相对而言采用一种非常简单易行的方法：控件法，才是最适合最方便的。下面要使用已被微软封装好的控件:csystray1(名称可自定)。

说到控件，大家可能要皱眉头了：去哪找呀？放心！这个控件就躺在你的VB安装盘里（目录为:COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY）！不过，得处理一下：请在Tool 文件夹里查找一个名叫Systray的目录，将它拷贝到硬盘，用VB打开该目录下的工程，必要的话可作些改进（如更换图标、添加功能等），然后编译成ocx控件，可以随意命名。为方便使用起见，最好编译到Windows\System目录下。好了，现在我们就可以在我们的程序中使用此控件来轻松实现托盘功能了。vb中添加控件的方法就不用我说了吧？

控件的属性和事件浅析:

该控件的InTray属性是用来设置是否显示在托盘中，True为显示在托盘，False为不显示；

该控件的TrayIcon属性是在托盘中显示的图标式样；

该控件的TrayTip属性是鼠标移动到该控件上面时，显示的提示文字；

该控件的重要事件是几个我们常用的鼠标事件：按下、放开、移动、双击，编程时就是利用这些事件达到在任务栏中控制程序的目的。

源代码如下:

'使程序最小化时显示到系统托盘

Private Sub Form_Resize()

If Me.WindowState = 1 Then '如程序为最小化则——

cSysTray1.InTray = True '隐藏到任务栏

Me.Visible = False '让程序界面不可见

End If

End Sub

'点击托盘图标后，让程序窗体显示出来

Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long)

Me.WindowState = 0 '程序回复到Normal状态

Me.Visible = True '从任务栏中清除图标

cSysTray1.InTray = False '令程序界面可见

Me.setfocus

End Sub

方法二1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

2、菜单：工程--添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas

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 "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

'4、在Form1的Load事件中写下如下代码：

Private Sub Form_Load()

'以下把程序放入System Tray====================================System Tray Begin