تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار واخفاء ايقونات سطح المكتب
#1
كاتب الموضوع : AhmedEssawy

في قسم التصريحات :


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود اظهار البرنامج بالنقر على الايقونة masdel 0 658 07-01-15, 03:36 PM
آخر رد: masdel
  لانشاء اختصار على سطح المكتب RaggiTech 0 453 17-10-12, 02:19 PM
آخر رد: RaggiTech
  تغيير خلفية سطح المكتب RaggiTech 0 413 17-10-12, 02:18 PM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 277 17-10-12, 01:11 AM
آخر رد: RaggiTech
  لنسخ خلفية سطح المكتب إلى برنامجك RaggiTech 0 288 17-10-12, 01:02 AM
آخر رد: RaggiTech
  تغيير الصورة في خلفية سطح المكتب RaggiTech 0 358 17-10-12, 12:39 AM
آخر رد: RaggiTech
  اظهار واخفاء مؤشر الماوس RaggiTech 0 1,214 17-10-12, 12:19 AM
آخر رد: RaggiTech

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


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