【文件属性】:
文件名称: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