devxlogo

ShowProgramsInTaskbar – Show or hide all programs in the taskbar

ShowProgramsInTaskbar – Show or hide all programs in the taskbar

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _    lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _    ByVal nCmdShow As Long) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal _    hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _    ByVal lpsz2 As String) As Long' show/hide the programs in the taskbar, according to the bShow parameter' Example:'   - hide the programs: ShowProgramsInTaskbar False'   - show the programs: ShowProgramsInTaskbarPublic Sub ShowProgramsInTaskbar(Optional ByVal bShow As Boolean = True)    Dim lShellHandle As Long    Dim lRebarHandle As Long    Dim lCtlHandle As Long        ' get the handle of the taskbar    lShellHandle = FindWindow("Shell_TrayWnd", "")    ' get the handle of the rebar control    lRebarHandle = FindWindowEx(lShellHandle, 0, "ReBarWindow32", vbNullString)    lCtlHandle = FindWindowEx(lRebarHandle, 0, "MSTaskSwWClass", vbNullString)    ' hide or show the tab control    ShowWindow FindWindowEx(lCtlHandle, 0, "SysTabControl32", vbNullString), _        Abs(bShow)End Sub

See also  5 Ways to Improve Customer Experience
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist