كيف أخفي شريط المهام

كيف الحال شباب البرمجة

هذا الكود لأخفاء زر ابد وأظهاره

المطلوب

1 - مدويل Module1

2- زر كومند ونسمية أخفاء زر أبدا

3- زر كومند ثاني ونسمية أظهار زر أبدا

طريقة التركيب

يوضع هذا الكود في المودويل Module

Private Const SWP_SHOWWINDOW = &H40

Private Const SWP_HIDEWINDOW = &H80

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 FindWindow Lib "user32" _

Alias "FindWindowA" (ByVal lpClassName As String, ByVal _

lpWindowName As String) As Long

Public Sub TaskBarVisible(Vis As Boolean)

Dim TaskBarhWnd As Long

TaskBarhWnd = FindWindow("Shell_traywnd", "")

If TaskBarhWnd <> 0 Then

If Vis Then

Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

Else

Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

End If

End If

End Sub

----------------

==================

وهذا الكود يوضع في زر كومند الأول وهو لاخفاء زر أبدا

TaskBarVisible False

---------

==========

وهذا الكود يوضع في زر كومند الثاني اللي هو أظهار زر أبدا

TaskBarVisible True

------------

========

وبس ....

وتقبلوووا تحياتي وحبي

الكابوس

alibas1@hotmail.com

أنا أريد اخفاء شريط المهام

او وضعه في وضعية AUTO HIDE