文件名称：VB6 系统托盘控件
文件大小：28KB
文件格式：RAR
更新时间：2021-05-26 15:49:41
VB6 系统托盘控件
VB6.0将窗体最小化到系统托盘区 控件法，才是最适合最方便的。使用已被微软封装好的控件:csystray1(名称可自定)。 可直接使用 SysTray.ocx 控件。也可用VB打开工程，做必要的话可作些改进（如更换图标、添加功能等），然后编译成ocx控件，可以随意命名。 注册控件方法： 32位系统的方法, 将ocx文件复制到c:\windows\system32下面, 运行命令regsvr32.exe Systray.ocx win7 64位系统的方法: 将ocx文件复制到c:\windows\syswow64下面, 运行命令c:\windows\syswow64\regsvr32.exe Systray.ocx 即可. 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
【文件预览】：
SYSTRAY工程
----SYSTRAY.ICO(7KB)
----SYSTRAY.VBP(775B)
----SYSTRAY.CMP(29KB)
----SYSTRAY.BAS(4KB)
----SYSTRAY.CTL(15KB)
----SYSTRAY.CTX(8KB)
SysTray.ocx