将应用程序放到系统盒中

吴丰
1998年 第37期 13版

　　在Win95的任务栏上，我们发现一些Win95应用程序可以以小图标的方式放到系统盒中，如ICQ、Realplayer、金山词霸等。系统盒（System Tray）是任务栏右边的一个凹进去的小框。其实要实现这个功能，可以用VB5.0编一应用程序管理器，以自己喜欢的方式设置菜单，并且该程序在系统启动后能自动放到系统盒中，同时还伴随着一段优美的音乐。实现步骤如下：
#1　　一、创建SysTray控件
　　1．打开VB光盘上\Tools\UNSUPPRT\Systray目录下的Systray.vbp工程文件。
　　2．选择菜单项“文件/生成Systray.ocx”，并在“保存在”对话框中设置目录为C:\WINDOWS\SYSTEM，然后“确定”编译该控件。
　　现在SysTray控件已准备好，你的应用程序可以使用它了。
#1　　二、使用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文件，并将该程序放到“启动”菜单中。
　　重新启动计算机，你会发现系统盒中多了一个小图标，并伴随着音乐。如果把鼠标放在它上面停留两秒钟，会看到提示“应用程序管理器”，右击该图标，就会出现一个弹出式菜单。至此，大功告成！


 