Question

求如何在程序最小化时在任务栏建立一个图标，并把程序窗口关闭？

Answer 1

托盘程序轻松实现 说到控件，大家可能要皱眉头了：去哪找呀？放心！这个控件就躺在你的VB安装盘里！不过，得处理一下：请在Tool文件夹里查找一个名叫Systray的目录 （我找到的路径是：\Visual Basic 6\COMMON\TOOLS\VB\UNSUPPRT\SYSTRY），将它拷贝到硬盘，用VB打开该目录下的工程，必要的话可作些改进（如更换图标、添加功能等），然后编译成ocx控件，可以随意命名。为方便使用起见，最好编译到Windows\System目录下。好了，现在我们就可以在我们的程序中使用此控件来轻松实现托盘功能了。添加控件的方法就不用我说了吧？ 该控件的重要事件是几个我们常用的鼠标事件：按下、放开、移动、双击，编程时就是利用这些事件达到在任务栏中控制程序的目的。你会发现这也是很简单的，我就不罗嗦了。 下面给个例子。运行此例，点击最小化按钮，程序界面消失，程序图标（确切地说是CsysTray控件的图标）出现在任务栏右边；点击任务栏右边的图标，程序恢复到原状。 '最小化程序到任务栏的右边 Private Sub Form_Resize() If Me.WindowState = 1 Then '如程序为最小化则—— cSysTray1.InTray = True '隐藏到任务栏 Me.Visible = False '让程序界面不可见End IfEnd Sub'恢復程序到屏幕 Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long) Me.Visible = True '从任务栏中清除图标 cSysTray1.InTray = False '令程序界面可见End Sub