📄 m18.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> <font color="#FFFFFF">VB托盘程序轻松实现</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000">来源：www.vbeden.com<br>
<br>
托盘，亦即程序最小化后程序图标隐藏到屏幕右下角的任务栏里。这种最小化方法比普通的最小化节约空间，因此备受欢迎，很多软件都具有这样的功能。在VB中，可用API函数来实现托盘功能，但比较复杂,不太好操作。这里给大家介绍一种非常简单易行的方法：控件法。<br>
说到控件，大家可能要皱眉头了：去哪找呀？放心！这个控件就躺在你的VB安装盘里！不过，得处理一下：请在Tool文件夹里查找一个名叫Systray的目录，将它拷贝到硬盘，用VB打开该目录下的工程，必要的话可作些改进（如更换图标、添加功能等），然后编译成ocx控件，可以随意命名。为方便使用起见，最好编译到Windows\System目录下。好了，现在我们就可以在我们的程序中使用此控件来轻松实现托盘功能了。添加控件的方法就不用我说了吧？<br>
该控件最主要的属性是InTray属性：设置为True时程序图标出现在任务栏右边，设置为False时从任务栏中清除图标。此外还有图标属性TrayIcon(程序出现在任务时的图标样式)、TrayTip属性(鼠标移到该图标时出现的ToolTip字样)等，都是我们所熟悉的东西，一看就知道。<br>
该控件的重要事件是几个我们常用的鼠标事件：按下、放开、移动、双击，编程时就是利用这些事件达到在任务栏中控制程序的目的。你会发现这也是很简单的，我就不罗嗦了。<br>
下面给个例子。运行此例，点击最小化按钮，程序界面消失，程序图标（确切地说是CsysTray控件的图标）出现在任务栏右边；点击任务栏右边的图标，程序恢复到原状。<br>
<br>
'最小化程序到任务栏的右边<br>
Private Sub Form_Resize()<br>
If Me.WindowState = 1 Then '如程序为最小化则——<br>
cSysTray1.InTray = True '隐藏到任务栏<br>
Me.Visible = False '让程序界面不可见<br>
End If<br>
End Sub<br>
<br>
'恢復程序到屏幕<br>
Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long) <br>
Me.WindowState = 0 '程序回复到Normal状态<br>
Me.Visible = True '从任务栏中清除图标 <br>
cSysTray1.InTray = False '令程序界面可见<br>
End Sub <br>
</font></span> <br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -