منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اظهار واخفاء ايقونات سطح المكتب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : اظهار واخفاء ايقونات سطح المكتب (/showthread.php?tid=5816)

اظهار واخفاء ايقونات سطح المكتب - RaggiTech - 17-10-12

كاتب الموضوع : 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