程序控制托盘图标行为仅显示通知

序控制托盘图标行为，仅显示通知，可以通过以下步骤实现：

1、在程序代码中，要使用新代码创建一个托盘图标对象。

2、把设置托盘图标的菜单改为空菜单，即不显示菜单项。

3、定义通知的标题和内容，并使用这个新代码显示通知。

①首先，点击桌面上的图标，在在线状态zhidao下用鼠标右键点击系统托盘中的图标，在d出菜单中选择"设置---系统设置"，此时，会出现"基本设置"对话框，找到"窗口设置"选项卡，去掉其中的"在任务栏显示图标"复选框前面的"√"，确定后托盘中回的小企鹅图标就立刻消失了。由此实现第一步隐答藏。

②现在可以使用默认热键"CTRL+ALT+Z"，也可以自定义热键。在“热键设置”里面；这样就可以用热键来激活了。

先创建一个隐藏的菜单，假定名为popmenu，并添加两个菜单项：退出、联系作者

然后在公共模块添加以下代码：

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Type NOTIFYICONDATA

    cbSize As Long

    hWnd As Long

    uID As Long

    uFlags As Long

    uCallbackMessage As Long

    hIcon As Long

    szTip As String * 64

End Type

Public tp As NOTIFYICONDATA

最后在窗体添加以下代码：

Private Sub Form_Load()

tp.hWnd = Me.hWnd

tp.uID = Me.Icon

tp.uFlags = 7

tp.uCallbackMessage = &H200

tp.hIcon = Me.Icon.Handle

tp.szTip = "左键显示界面，右键d出菜单" & vbNullChar

tp.cbSize = Len(tp)

Shell_NotifyIcon &H0, tp

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Select Case X / Screen.TwipsPerPixelX

Case &H201

    If Me.WindowState = 1 Then Me.WindowState = 0

Case &H204

    Me.PopupMenu popmenu

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Shell_NotifyIcon &H2, tp

End Sub

---