VB中无标题窗口显示在任务栏

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:48:45
我编了一个程序,没有标题栏,解决了拖动窗口的问题,不知道如何使无标题栏的程序象有标题栏的程序一样显示在任务栏里(最好有例子)
不是托盘的那种,托盘会做了,无标题程序如何显示在任务栏里

'声明部分
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private nfIconData As NOTIFYICONDATA
Const MAX_TOOLTIP As Integer = 32 '这部分是声明常量
Const NIF_ICON = &H2 '删除图标
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0 '添加图标到任务栏提区
Const NIM_DELETE = &H2
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Const SW_RESTORE = 9
Const SW_HIDE = 0
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long