快捷搜索:

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

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

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)

请看本文中所用到的两个API函数GetWindow和ShowWindow的用法。

您可能还会对下面的文章感兴趣: