【原】如何使得VB程序最小化到任务栏的一种简单方法的实现

    网上搜索了很多种方式，都需要大量的代码，才能实现VB程序的最小化到托盘任务栏。

    最后找到一种方式测试，效果很好。分享并存档记录。

首先我们需要找到VB6.0的安装包下面的SYSTRAY文件夹，路径一般是：VisualBasic6.0\COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY

打开SYSTRAY.VBP程序，然后编译成SysTray.ocx控件，可以放在任意的文件夹里面。

打开设计的VB程序，添加SysTray.ocx控件

点击打开，就会出现多一个图标

将图标拉到设计窗口，改变ICON，就是所需最小化任务栏的图标了。

编写控件程序：

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

Me.WindowState = 0 '软件展示到桌面

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

cSysTray1.InTray = False '软件界面可见

End Sub

编写调用程序

Private Sub Form_Resize()

If Me.WindowState = 1 Then '最小化

cSysTray1.InTray = True '任务栏

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

End If

End Sub

测试效果：

最小化到了任务栏，然后点击，恢复界面。

说明：

利用VB工具的OCX文件，实现窗口最小化到任务栏，代码少，实现方便。