隐藏在任务栏中的程序[VB]

VBA窗体任务栏属性设置

最新推荐文章于 2025-05-24 16:53:52 发布

原创最新推荐文章于 2025-05-24 16:53:52 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #任务 #function #user

本文介绍了一个使用VBA实现的窗体任务栏属性设置功能，通过修改窗体的WS_EX_APPWINDOW样式，可以控制窗体是否显示在任务栏上。提供了具体的VBA代码实现，包括获取和设置窗体样式的函数。

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 Const GWL_EXSTYLE = (-20)
Public Const WS_EX_APPWINDOW = &H40000

Private Sub chkTaskbar_Click()
Dim style As Long
Hide
style = GetWindowLong(hwnd, GWL_EXSTYLE)

If chkTaskbar.Value = 0 Then

If style And WS_EX_APPWINDOW Then
style = style - WS_EX_APPWINDOW
End If
Else
style = style Or WS_EX_APPWINDOW
End If
SetWindowLong hwnd, GWL_EXSTYLE, style
App.TaskVisible = CBool(chkTaskbar.Value)
Show
End Sub