منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

كود اخفاء عناصر سطح المكتب

اذهب الى الأسفل

كود اخفاء عناصر سطح المكتب  Empty كود اخفاء عناصر سطح المكتب

مُساهمة من طرف أيمن الإبراهيم الثلاثاء مارس 04, 2014 9:30 pm

اهلا وسهلا بكم في منتدى مصر التقني
-------------------------------
                        بسم الله
في قسم التصريحات :

الكود:


Option Explicit

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 Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
وفي الكود :


الكود:


 

Sub Change_DesktopIcons(isVisible As Boolean)

Dim hWnd As Long

hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)

If isVisible Then

' Show Desktop

ShowWindow hWnd, 5

Else

' Hide Desktop

ShowWindow hWnd, 0

End If

End Sub


----
والى لقاء في اكواد جديدة بأذن الله
أيمن الإبراهيم
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى