ShowInTaskbar

最新推荐文章于 2021-03-19 00:50:54 发布

yinweihong

最新推荐文章于 2021-03-19 00:50:54 发布

阅读量1.4k

点赞数

分类专栏：其他文章标签： function command user

本文链接：https://blog.csdn.net/yinweihong/article/details/117419

版权

其他专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Public Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd _
As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const GWL_EXSTYLE = -20
Public Const WS_EX_TOOLWINDOW = 1
Public M_Num As Long
Public Sub setShowInTaskbar(Visible As Boolean, hwnd As Long)
    Dim L As Long
    L = ShowWindow(hwnd, SW_HIDE)
    DoEvents
    L = SetWindowLong(hwnd, GWL_EXSTYLE, IIf(Visible, M_Num, 1))
    DoEvents
    L = ShowWindow(hwnd, SW_SHOW)
End Sub
Private Sub Command1_Click()
Call setShowInTaskbar(False, Me.hwnd)
End Sub
Private Sub Command2_Click()
Call setShowInTaskbar(True, Me.hwnd)
End Sub
Private Sub Form_Load()
M_Num = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
End Sub