网上搜索了很多种方式,都需要大量的代码,才能实现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文件,实现窗口最小化到任务栏,代码少,实现方便。
联系客服