تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخفاء-اظهار شريط المهام TaskBar
#1
كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله و بركاته

كود :
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
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Make form-s title bar & taskbar Blink RaggiTech 0 2,076 17-10-12, 10:07 PM
آخر رد: RaggiTech
  كود اظهار الاي بي العالمي(او الحقيقي) RaggiTech 0 2,278 17-10-12, 09:56 PM
آخر رد: RaggiTech
  اظهار اسم النظام + اصداره على سطح المكتب RaggiTech 0 2,353 17-10-12, 08:42 PM
آخر رد: RaggiTech
  كيفية استخدام شريط التحميل Progress bar RaggiTech 0 2,131 17-10-12, 05:16 PM
آخر رد: RaggiTech
  اظهار ايقونه تنبيه للمستخدم RaggiTech 0 1,676 17-10-12, 04:48 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم