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
0条评论