托盘化

单击“最小化”按钮（标题栏的右边）将窗口缩小为任务栏上右边的图标，同时隐藏原窗体。单击或者右键托盘化的图标，可以重现原窗体。

vb中有部分api可以实现将窗体最小化的功能，但是非常繁琐。这里有一个非常简单的办法：可以用微软封装好的控件来实现，不过该控件并不在VB安装目录中，需要找到VB的安装盘(不是安装以后的目录)的COMMONTOOLSVBUNSUPPRTSYSTRAY目录，将Systray目录拷到硬盘上面并编译为ocx控件（编译前记得要先把只读属性修改掉，有时候会提示要先保存，直接保存。），

然后在自己的VB程序中添加改控件(工程-部件-浏览)。

最好把这个ocx放到C:WINDOWSsystem32。

改控件的属性InTray属性用来设置是否显示在托盘中，True为显示在托盘，False为不显示。TrayIcon属性是在托盘中显示的图标式样。TrayTip属性是鼠标移到改控件上面显示的提示文字。如果要使程序最小化时显示到托盘，如下：

Private Sub Form_Resize()

If Me.WindowState = vbMinimized Then

cSysTray1.InTray = True

Me.Visible = FalseEnd If

End Sub

点击托盘图标后让程序显示出来，如下：

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

Me.WindowState = vbNormal

Me.Visible = True

cSysTray1.InTray = False

Me.SetFocus

End Sub