Question

求VB托盘代码？

另告诉我下如何加子菜单，谢谢， ！

Answer 1

VB托盘程序详解（一）。
　　很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标；而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。

　　程序(附后)用到了Shell_NotifyIcon、SendMessage、CallWindowProc、SetWindowLong等API函数，其中Shell_NotifyIcon是主要的函数，它用来添加、删除、更改系统托盘区(taskbar status area)的图标，所以我们先来看看这个函数的声明和参数：

　　使用API函数之前必须先在程序中声明如下：

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

　　
　　其中各参数的意义如下表:

参数： 意义
dwMessage 为消息设置值，它可以是以下的几个常数值：0、1、2
NIM_ADD = 0　 加入图标到系统状态栏中
NIM_MODIFY = 1 修改系统状态栏中的图标
NIM_DELETE = 2 删除系统状态栏中的图标

　　LpData 用以传入NOTIFYICONDATA数据结构变量，其结构如下所示：

Type NOTIFYICONDATA

　　cbSize As Long 　　　　　　　需填入NOTIFYICONDATA数据结构的长度
　　HWnd As Long 　　　　　　　　设置成窗口的句柄
　　Uid As Long　　　　　　　　　为图标所设置的ID值
　　UFlags As Long 　　　　　　　设置uCallbackMessage,hIcon,szTip是否有效
　　UCallbackMessage As Long　　 消息编号
　　HIcon As Long 　　　　　　　 显示在状态栏上的图标
　　SzTip As String * 64　　　　 提示信息
End Type

　　返回值 Long，非零表示成功，零表示失败

　　在使用这个API函数之前我们应该先定义结构类型NOTIFYICONDATA：

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

　　然后定义一个NOTIFYICONDATA的变量TheData来记录设置托盘图标的数据

Private TheData As NOTIFYICONDATA