标题将应用程序放到系统盒中

　　在Win95的任务栏上，我们发现一些Win95应用程序可以以小图标的方式放到系统盒中，如ICQ、Realplayer、金山词霸等。系统盒(System Tray)是任务栏右边的一个凹进去的小框。其实要实现这个功能，可以用VB5.0编一应用程序管理器，以自己喜欢的方式设置菜单，并且该程序在系统启动后能自动放到系统盒中，同时还伴随着一段优美的音乐。实现步骤如下：
　　一、创建SysTray控件
　　1.打开VB光盘上\Tools\UNSUPPRT\Systray目录下的Systray.vbp工程文件。
　　2.选择菜单项“文件/生成Systray.ocx”，并在“保存在”对话框中设置目录为C:\WINDOWS\SYSTEM，然后“确定”编译该控件。
　　现在SysTray控件已准备好，你的应用程序可以使用它了。
　　二、使用SysTray控件
　　1.选择菜单项“文件/新建工程”，并将窗体Form1的“名称”属性改变为frmMain。
　　2.用鼠标右键单击工具箱，选择“部件…”，在对话框“浏览”中选择文件C:\WINDOWS\SYSTEM\Systray.ocx，把SysTray控件加到你的工具箱中。
　　3.把SysTray控件加到窗体frmMain中，并设其“名称”属性为“cls SysTray”，设其“InTray”属性为“True”，“TrayTip”属性为“应用程序管理器”。
　　4.单击frmMain窗体使其激活，选择菜单项“工具/菜单编辑器”，创建一个菜单，将“标题”属性设为“&程序”，将“名称”属性设为“mnuApp”，单击“下一个”按钮。
　　5.单击右箭头创建以下二级菜单：
　　标题　 名称
　　&记事本 mnuAppNotepad
　　-　　mnuAppSep1
　　&关闭　mnuAppClose
　　6.双击frmMain，打开它的代码窗口，给Load事件添加如下代码：
　　Private Sub Form_Load()
　　Me.Hide
　　MMControl1.Notify=False
　　MMControl1.Wait=True
　　MMControl1.Shareable=False
　　MMControl1.DeviceType="waveaudio"
　　MMControl1.filename="e:\fodder\sound\gohome.wav"
　　MMControl1.Command="Open"
　　MMControl1.Command="Play"
　　End Sub
　　7.打开clsSysTray的MouseDown事件，添加如下代码：
　　Private Sub clsSysTray_MouseDown(Button As Integer，Id As Long)
　　If Button=2 Then
　　PopupMenu mnuApp
　　End If
　　End Sub
　　8.给mnuAppNotepad的Click事件添加如下代码：
　　Private Sub mnuAppNotepad_Click()
　　Dim rc As Double
　　rc=Shell("C:\Windows\Notepad.exe"，vbNormalFocus)
　　End Sub
　　9.给mnuAppClose的Click事件添加如下代码：
　　Private Sub mnuAppClose_Click()
　　Unload Me
　　Set frmMain=Nothing
　　End Sub
　　10.最后，保存工程并编译成EXE文件，并将该程序放到“启动”菜单中。
　　重新启动计算机，你会发现系统盒中多了一个小图标，并伴随着音乐。如果把鼠标放在它上面停留两秒钟，会看到提示“应用程序管理器”，右击该图标，就会出现一个弹出式菜单。至此，大功告成！