用VB6在托盘程序中加入应用程序图标

　　5、在Form1的QueryUnload事件中写入如下代码：

　　Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

　　6、在Form1的MouseMove事件中写下如下代码：

　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键，显示窗体
ShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
'' Case WM_RBUTTONUP
'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
'' Case Else
End Select
End Sub

　　7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。

[责任编辑:editorforddvip]

相关链接

• ·用Visual C#做托盘程序(2006-08-01 13:42:02)
• ·VB托盘程序详解(2006-07-28 00:32:33)
• ·用VB编写托盘程序(2006-07-26 15:32:28)
• ·VB.NET编程之托盘程序篇(2006-07-26 15:08:42)
• ·一个托盘程序演示--闹钟 Alert(2006-07-19 16:03:11)
• ·一个托盘程序演示－闹钟 Alert(2006-03-20 06:14:00)
• ·VB实现托盘程序(2006-03-26 01:57:00)

本栏更新

• ·控制INI文件的几种方法(2006-07-30 10:56:12)
• ·获取Windows临时路径(2006-07-30 10:52:08)
• ·Rich TextBox的右键功能(2006-07-30 10:46:43)
• ·VB中用第三方控件制作资源管理器(2006-07-30 02:25:46)
• ·VB实现SQL Server 2000存储过程调用(2006-07-30 02:23:05)
• ·用VB设计一个简单的加法程序(2006-07-30 02:21:52)
• ·Visual Basic中轻松打造绚丽按钮(2006-07-30 02:18:41)