如何运行时修改showintaskbar属性.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 17 行

可 以 借 助 Windows API来 动 态 设 置 是 否 在 Taskbar上 显 示 。 实 现 加 入 如 下 声 明 
    Private Const GWL_EXSTYLE = (-20) 
    Private Const WS_EX_APPWINDOW = &H40000 
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
    然 后 在 Form_Load中 加 入 如 下 代 码 ： 
     Dim lStyle As Long 
     Dim lResult As Long 
     
     lStyle = GetWindowLong(YOURFORM.hwnd, GWL_EXSTYLE) 
     
     lStyle = lStyle Or WS_EX_APPWINDOW ' 如 果 ShowInTaskbar=False， 用 这 句 使 窗 口 在 Taskbar可 见 
     ' 如 果 ShowInTaskbar=True， 用 lStyle = lStyle And Not WS_EX_APPWINDOW 使 窗 口 在 Taskbar不 可 见 
     lResult = SetWindowLong(YOURFORM.hwnd, GWL_EXSTYLE, lStyle) 
    需 要 强 调 一 点 ， 你 只 能 在 Form_Load中 使 用 这 个 方 法 ， 一 旦 窗 口 显 示 出 来 之 后 就 没 有 办 法 了 。 
<END>