VB：如何制作一个监控图标？

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:09:10
如何用VB在屏幕右下角编制出一个类似杀毒监控的图标，使得要运行的VB程序在前台不显示，但在右下角的工具栏上显示一个很小的图标？

哦~~你说的是SysTray啊。
使用API函数可以实现
API声明：
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
模块级变量和常量：
Private Const NIM_ADD = &H0 '
Private Const NIM_DELETE = &H2 '
Private Const WM_MOUSEMOVE = &H200 '
Private Const NIF_MESSAGE = &H1 '
Private Const NIF_ICON = &H2 '
Private Const NIF_INFO = &H10 '
Private Const NIIF_INFO = &H1 '
Private Const NIF_TIP = &H4 '

Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeoutOrVersion As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type

Dim t As