اخفاء-اظهار شريط المهام TaskBar - نسخة قابلة للطباعة

كود :

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer



Const TASKBAR_SHOW As Integer = &H40

Const TASKBAR_HIDE As Integer = &H80



Public Sub HideTaskBar()

Dim TaskbarHandle As Long

TaskbarHandle = FindWindow("Shell_traywnd", "")

SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&, TASKBAR_HIDE)

End Sub



Public Sub ShowTaskBar()

Dim TaskbarHandle As Long

TaskbarHandle = FindWindow("Shell_traywnd", "")

SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&,TASKBAR_SHOW)

End Sub