VB6最小化程序到系统托盘.docxVIP

VB6最小化程序到系统托盘

‘VB6最小化程序到系统托盘

‘原作者:zheng0823（本人做了些小修改，确保最小化能到系统托盘）

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

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

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

OptionExplicit

PublicConstMAX_TOOLTIPAsInteger=64

PublicConstNIF_ICON=H2

PublicConstNIF_MESSAGE=H1

PublicConstNIF_TIP=H4

PublicConstNIM_ADD=H0

PublicConstNIM_DELETE=H2

PublicConstWM_MOUSEMOVE=H200

PublicConstWM_LBUTTONDOWN=H201

PublicConstWM_LBUTTONUP=H202

PublicConstWM_LBUTTONDBLCLK=H203

PublicConstWM_RBUTTONDOWN=H204

PublicConstWM_RBUTTONUP=H205

PublicConst