china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用VB5.0将应用程序放到系统盒中

2000-08-14 15:23:04

  按:一些WIN95应用程序可以以小图标的方式放到系统盒中,如ICQ、Realplayer、金山词霸等。系统盒(System Tray)是任务栏右边的一个凹进去的小框。如:记得前一向到处有人问起此事,其实这个问题在《VISUAL BASIC5.0教程》(美国人编,电子工业出版社)一书中可找到答案,现试举一例。

  目标:因为WIN95的级联式菜单太过烦琐,使用快捷菜单又会令桌面凌乱不堪。故设想编一应用程序管理器,以自己喜欢的方式设置菜单,该程序在系统启动后能自动放到系统盒中,并伴随着一段优美的音乐。

  实现步骤:

一、创建SysTray控件

  1.打开VB光盘上\Tools\UNSUPPRT\Systray目录下的Systray.vbp工程文件。

  2.选择菜单项“文件/生成Systray.ocx”,并在“保存在”对话框中设置目录为C:\WINDOWS\SYSTEM,然后“确定”编译该控件。

  现在SysTray控件已准备好,你的应用程序可以使用它了。

二、使用SysTray控件

  1.选择菜单项“文件/新建工程”,并将窗体Form1的“名称”属性改变为frmMain。

  2.用鼠标右键单击工具箱,选择“部件…”,在对话框“浏览”中选择文件C:\WINDOWS\SYTEM\ 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文件,并将该程序放到“启动”菜单中。重新启动计算机,你会发现系统盒中多了一个小图标,并伴随着音乐。如果把鼠标放在它上面停留两秒钟,会看到提示“应用程序管理器”,右击该图标,就会出现一个弹出式菜单。至此,大功告成!

  摘自《赛迪网》 吴丰/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集




  • 网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网