Các chiêu thức trong lập trình Ẩn thanh Taskbar hoặc các thành phần khác

Ẩn thanh Taskbar hoặc các thành phần khác Binh khí : (Nếu bạn muốn test thì tự vẽ thêm các đối tượng vì đoạn code đã tương đối chi tiết) Xuất xứ : www.pscode.com Đoạn mã Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private 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 Private Const SWP_SHOWWINDOW = &H40 Private Const SWP_HIDEWINDOW = &H80 Private Const SWP_FRAMECHANGED = &H20 Private TaskBarhWnd As Long Private StartButtonhWnd As Long Private SysTrayhWnd As Long Private ClockhWnd As Long Private FirstBarhWnd As Long Private SecondBarhWnd As Long Private ThirdBarhWnd As Long Private FourthBarhWnd As Long Public Function HideTaskBarParts(whattohide As String) As Boolean TaskBarhWnd = FindWindow("Shell_TrayWnd", "") StartButtonhWnd = FindWindowEx(TaskBarhWnd, 0, "Button" & vbNullString, vbNullString) SysTrayhWnd = FindWindowEx(TaskBarhWnd, 0, "traynotifywnd" & vbNullString, vbNullString) ClockhWnd = FindWindowEx(SysTrayhWnd, 0, "TrayClockWClass" & vbNullString, vbNullString) FirstBarhWnd = FindWindowEx(TaskBarhWnd, 0, "ReBarWindow32" & vbNullString, vbNullString) SecondBarhWnd = FindWindowEx(FirstBarhWnd, 0, "ToolBarWindow32" & vbNullString, vbNullString) ThirdBarhWnd = FindWindowEx(FirstBarhWnd, 0, "MSTaskSwWClass" & vbNullString, vbNullString) FourthBarhWnd = FindWindowEx(ThirdBarhWnd, 0, "SysTabControl32" & vbNullString, vbNullString) If TaskBarhWnd = 0 Or StartButtonhWnd = 0 Or SysTrayhWnd = 0 Or ClockhWnd = 0 Or FirstBarhWnd = 0 Or SecondBarhWnd = 0 Or ThirdBarhWnd = 0 Or FourthBarhWnd = 0 Then MsgBox "Error recieving window handles !!!", vbCritical, "No hWnd detected" Exit Function End If If whattohide = "Taskbar" Then X = SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ElseIf whattohide = "Systray" Then X = SetWindowPos(SysTrayhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ElseIf whattohide = "Clock" Then X = SetWindowPos(ClockhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ElseIf whattohide = "Quickstart" Then X = SetWindowPos(SecondBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ElseIf whattohide = "Tasklist" Then X = SetWindowPos(ThirdBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ElseIf whattohide = "Startbutton" Then X = SetWindowPos(StartButtonhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Else X = 0 End If HideTaskBarParts = X End Function Public Function ShowTaskBarParts(whattoshow As String) As Boolean If whattoshow = "Taskbar" Then X = SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ElseIf whattoshow = "Systray" Then X = SetWindowPos(SysTrayhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ElseIf whattoshow = "Clock" Then X = SetWindowPos(ClockhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ElseIf whattoshow = "Quickstart" Then X = SetWindowPos(SecondBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ElseIf whattoshow = "Tasklist" Then X = SetWindowPos(ThirdBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) ElseIf whattoshow = "Startbutton" Then X = SetWindowPos(StartButtonhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) Else X = 0 End If Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED) ShowTaskBarParts = X End Function . Ẩn thanh Taskbar hoặc các thành phần khác Binh khí : (Nếu bạn muốn test thì tự vẽ thêm các đối tượng vì đoạn code đã tương. HideTaskBarParts(whattohide As String) As Boolean TaskBarhWnd = FindWindow("Shell_TrayWnd", "") StartButtonhWnd = FindWindowEx(TaskBarhWnd,