VB最小化到通知栏，托盘的方法 WinAPI实现

最新推荐文章于 2021-02-15 16:16:11 发布

Fanstorm丶

最新推荐文章于 2021-02-15 16:16:11 发布

阅读量1.3k

点赞数

分类专栏： VB6 文章标签： vb winapi 通知栏图标最小化托盘图标

本文链接：https://blog.csdn.net/wf824284257/article/details/53509613

版权

本文介绍了如何使用VB结合WinAPI将窗口最小化到任务栏通知区域，提供了详细的模块代码和窗体代码示例，方便直接应用和修改。

摘要由CSDN通过智能技术生成

直接复制代码稍微修改一下就可以用了

1模块代码

Option Explicit

Public Const DefaultIconIndex = 1 '图标缺省索引
Public Const WM_LBUTTONDOWN = &H201 '按鼠标左键
Public Const WM_RBUTTONDOWN = &H204 '按鼠标右键

Public Const NIM_ADD = 0 '添加图标
Public Const NIM_MODIFY = 1 '修改图标
Public Const NIM_DELETE = 2 '删除图标

Public Const NIF_MESSAGE = 1 'message 有效
Public Const NIF_ICON = 2 '图标操作(添加，修改，删除)有效
Public Const NIF_TIP = 4  ' ToolTip(提示)有效

'API Declare
'图标操作
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'判断窗口是否最小化
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long  '如果是最小化，返回值>0
'设置窗口位置和状态的功能
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y