VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 让你的程序不在任务栏中显示
发表评论(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)