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

VB技巧问答10000例 VB技巧问答10000例

可 以 借 助 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>