لإظهار وإخفاء شريط المهام

أضف التالي في قسم التصاريح

Private Declare Function FindWindow Lib "user32" Alias _

"FindWindowA" (ByVal lpClassName As String, _

ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib _

"user32" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

أكتب اجراء اخفاء شريط المهام

'taskbarاخفاء ال

Sub HideTaskBar()

Dim Wnd&

Wnd = FindWindow("Shell_traywnd", vbNullString)

ShowWindow Wnd, 0

End Sub

أكتب اجراء اظهار شريط المهام

'taskbarاظهار ال

Sub ShowTaskBar()

Dim Wnd&

Wnd = FindWindow("Shell_traywnd", vbNullString)

ShowWindow Wnd, 1

End Sub

استدعي اجراء الاخفاء من اي مكان تريد ولنفرض زر امر

Private Sub Command1_Click()

Call HideTaskBar

End Sub

وبنفس الطريقة اجراء الاظهار

Private Sub Command2_Click()

Call ShowTaskBar

End Sub