让程序不在任务栏显示

IT商界

孙建新

　　时下有很多流行的软件最小化后，要么在桌面变成一个缩小的窗口，要么变成一个“悬浮窗”，在任务栏中找不到它的身影，这种设计显得很时尚、体贴。

　　1.首先在通用模块中做如下声明：

　　Public Const SW_HIDE = 0

　　Public Const GW_OWNER = 4

　　Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

　　Declare Function ShowWindow Lib “user32” Alias "ShowWindow" (ByVal hwnd As Long, ByVal CmdShow As Long) As Long

　　2.在窗体的Load事件中加入代码：

　　Dim rc As Long

　　Dim OwnerhWnd As Long

　　Me.Visible = False　　'让窗体不可见

　　OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)

　　rc = ShowWindow(OwnerhWnd, SW_HIDE) '从任务管理器列表中移除