用VB实现任务栏右下角的小图标

将VB应用程序缩成系统状态栏图标二法
第一种方法：
VB光盘的tools\unsupport\systray目录下有一个例子,将此目录复制到硬盘,编译生成一个OCX控件，在自己的程序中使用此控件,可以实现将程序图标放于右下角系统图标区，这方法比调用API要简单得多


第二种方法：
梁洁仪
---- 在很多应用程序中，其操作窗口缩小后将变成一图标放置在系统状态栏中。

---- 为什么有的程序可以缩小成图标呢？

---- 对于Windows来说，这些图标并非窗口或程序，它们只是图标，能作出这样的功能，关键在于调用了Windows的API函数Shell_NotifyIcon，在Visual Basic开发环境中，通过其所附带的API浏览器，我们可查找出Shell_NotifyIcon的声明格式如下：

---- Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

---- 现把本函数声明中的参数分别说明如下：

---- 参数dwMessage为消息设置值，它可以是以下的几个常数值：0、1、2。在程序中为了使用更方便，我们把它们定义为三个常量：NIM_ADD、NIM_MODIFY及NIM_DELETE，本示例中的常量及Shell_NotifyIcon调用都可以在窗口新建的模块中声明它：

Public Const NIM_ADD = 0 //加入图标到系统状态栏中
Public Const NIM_MODIFY = 1 //修改系统状态栏中的图标
Public Const NIM_DELETE = 2 //删除系统状态栏中的图标

---- 这三个常量的应用将中下文中具体介绍。
---- 参数LpData 用以传入NOTIFYICONDATA数据结构变量，我们也需要在"模块"中定义其结构如下：

Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

---- 在本数据结构定义中，各变量都有其实用意义：
cbSize：需填入NOTIFYICONDATA数据结构的长度。
HWnd：设置成窗口的句柄。
Uid：为图标所设置的ID值。
UFlags：用来设置以下三个参数uCallbackMessage、
hIcon、szTip是否有效。
UCallbackMessage：消息编号。
HIcon：显示在状态栏上的图标。
SzTip：提示信息。

---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量：
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4

---- 了解了上述各参数所代表的意义，就可以直接编写代码了。应用本函数所建立的窗体示例(略)。
---- 为了进一步让大家了解本函数的使用，下面将将详细介绍上例所需编写的代码。

---- 1、加入图标按钮。代码如下：

Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
//取数据结构的长度设置给cbSize
nid.hWnd = Me.hWnd //设置窗体的句柄
nid.uID = 9999 //图标的ID值，可自定义
nid.uFlags = NIF_ICON //表示设置图标
nid.hIcon = Me.Icon
//把图标设置成当前窗体的图标，也可以指定为某一图标文件

Shell_NotifyIcon NIM_ADD, nid //加入图标

---- 2、删除图标按钮。这里要注意的是，当我们把图标加入到状态栏后，一定要把hWnd及uID的值记下来，不然将无法正确删除此图标，本按钮的Click事件代码如下：

Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd //记下句柄
nid.uID = 9999 //ID值
Shell_NotifyIcon NIM_DELETE, nid
//调用Shell_NotifyIcon函数删除它

---- 3、改变图标按钮。同样的道理，在窗体运行过程中，如果要更新图标，可以用以下的Click事件代码来完成：
Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON
nid.hIcon = Image1.Picture
//用窗体中的Image控件中之图片来代替

Shell_NotifyIcon NIM_MODIFY, nid //修改它

---- 4、设置信息提示按钮。提示信息就是当我们将鼠标移到本图标上时，这些图标会显示出来的信息，下面的Click事件代码可以作到：
Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON + NIF_TIP
nid.szTip = "这是试验图标" + Chr(0)
Shell_NotifyIcon NIM_MODIFY, nid

---- 当然，在把本窗口缩小成图标的同时，也别忘了将窗口隐藏，代码是：Me.hide。这样窗口就不会在任务栏中出现了。
---- 利用Win 32 API函数，我们可以完成很多VB本身不具备的功能，只要灵活运用，必能为VB应用程序增色不少，