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

1.创建一个新的VB6项目，并将Form1的ShowInTaskBar属性设置为False。

2.菜单:工程-添加模块按“打开”添加一个新模块，命名为Module1，保存为Module1.bas

3.在模块1中编写以下代码:

选项显式

Public Const MAX_TOOLTIP为整数= 64

公共建筑NIF_ICON = &H2

公共建设NIF _消息= &H1

公共建设NIF _小费= &H4

公共建筑NIM_ADD = &H0

公共构造NIM_DELETE = &H2

公共常量WM_MOUSEMOVE = &H200

公共构造WM_LBUTTONDOWN = &H201

公共构造WM_LBUTTONUP = &H202

公共常量WM_LBUTTONDBLCLK = &H203

公共构造WM_RBUTTONDOWN = &H204

公共构造WM_RBUTTONUP = &H205

公共常量WM_RBUTTONDBLCLK = &H206

Public Const SW_RESTORE = 9

公共常量SW_HIDE = 0

公共nfIconData作为NOTIFYICONDATA

公共类型NOTIFYICONDATA

cbSize一样长

hWnd一样长

图标的标识

uFlags一样长

uCallbackMessage一样长

hIcon一样长

szTip As String * MAX_TOOLTIP

结束类型

公共声明函数show window Lib " user 32 "(ByVal hWnd As Long，ByVal nCmdShow As Long)

公共声明函数Shell _ NotifyIcon Lib " Shell 32 . dll "别名" Shell _ NotifyIconA "(ByVal dw message为Long，lpData为NOTIFYICONDATA)为Long