发表评论(0)作者：, 平台：, 阅读：16732, 日期：2000-03-12

让你的程序不在任务栏中显示



首先在一个模块中做如下声明：


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 nCmdShow As Long) As Long


将下面的代码添加到窗体的Load事件中：


Dim rc As Long

Dim OwnerhWnd As Long


'让窗体不可见

Me.Visible = False

'从任务管理器列表中移除

OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)

rc = ShowWindow(OwnerhWnd, SW_HIDE)