VB托盘.docVIP

VB托盘 VB托盘.txt会计说：“你晚点来领工资吧，我这没零钱。”你看得出我擦了粉吗？虽然你身上喷了古龙水，但我还是能隐约闻到一股人渣味儿。既宅又腐，前途未卜。既宅又腐，前途未卜。你被打胎后是怎么从垃圾桶里逃出来的?史上最神秘的部门：有关部门。不可否认，马赛克是这个世纪阻碍人类裸体艺术进步最大的障碍！托盘程序详解(一) 很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标；而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。 为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码： ==================================================================================================== ==================================================================================================== --------------------------------------------- 使用系统托盘程序演示 程序说明： 这是一个比较完整的使用系统托盘的程序实例，包括 了：添加托盘图标，删除托盘图标，动态改变托盘图标， 为托盘图标添加浮动提示信息，实现托盘图标的鼠标右键 菜单等内容。 -------名称-------------------作用------------ Form1 主窗体 mnuFile,mnuFileExit 文件菜单，菜单项 mnuTray,mnuTrayClose... 托盘区右键菜单，菜单项 --------------------------------------------- Option Explicit LastState变量的作用是标示主窗体原有状态 Public LastState As Integer 【VB声明】 Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 【说明】 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的“类型安全”声明形式 【返回值】 Long，由具体的消息决定 【参数表】 hwnd ----------- Long，要接收消息的那个窗口的句柄 wMsg ----------- Long，消息的标识符 wParam --------- Long，具体取决于消息 lParam --------- Any，具体取决于消息 Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 表示发送的是系统命令 Private Const WM_SYSCOMMAND = H112 Private Const SC_MOVE = HF010 Private Const SC_RESTORE = HF120 Private Const SC_SIZE = HF000 当主窗体加载时 Private Sub Form_Load() 窗体的WindowState属性，返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态 vbNormal 0 （缺省值）正常 。 VbMinimized 1 最小化（最小化为一个图标） VbMaximized 2 最大化（扩大到最大尺寸） If WindowState = vbMinimized Then LastState = vbNormal Else