如何让VB程序后台运行，且任务栏有图标

来源：百度知道 编辑：UC知道 时间：2024/06/15 03:17:29
本人用VB6.0写了一个程序，想让它在点击“最小化”时后台运行，且在任务栏有图标，双击图标可打开原窗口，望各位大虾赐教！

vb 窗口最小到时间边上从底部弹出

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False -----------------------------------------------

2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas -------------------

3、在Module1中写下如下代码： ------------------------------------------------------------------------------

Option Explicit
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA <