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

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



اظهار اسم النظام + اصداره على سطح المكتب - RaggiTech - 17-10-12

كاتب الموضوع : SAFMEHDI

السلام عليكم

===============
كود اظهار اسم النظام + اصداره على سطح المكتب

كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700]Public [/color][color=#0000bb]Sub ShowWindowsVersionOnDesktop[/color][color=#007700]([/color][color=#0000bb]ByVal Enable [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]Select [/color][color=#007700]Case [/color][COLOR=#0000bb]Enable
            [/COLOR][color=#007700]Case [/color][COLOR=#0000bb]True
                My[/COLOR][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Registry[/color][color=#007700].[/color][color=#0000bb]SetValue[/color][color=#007700]([/color][color=#dd0000]"HKEY_CURRENT_USER\Control Panel\Desktop"[/color][color=#007700], [/color][color=#dd0000]"PaintDesktopVersion"[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]Microsoft[/color][color=#007700].[/color][color=#0000bb]Win32[/color][color=#007700].[/color][color=#0000bb]RegistryValueKind[/color][color=#007700].[/color][color=#0000bb]DWord[/color][COLOR=#007700])
            Case [/COLOR][COLOR=#0000bb]False
                My[/COLOR][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Registry[/color][color=#007700].[/color][color=#0000bb]SetValue[/color][color=#007700]([/color][color=#dd0000]"HKEY_CURRENT_USER\Control Panel\Desktop"[/color][color=#007700], [/color][color=#dd0000]"PaintDesktopVersion"[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700], [/color][color=#0000bb]Microsoft[/color][color=#007700].[/color][color=#0000bb]Win32[/color][color=#007700].[/color][color=#0000bb]RegistryValueKind[/color][color=#007700].[/color][color=#0000bb]DWord[/color][COLOR=#007700])
        [/COLOR][COLOR=#0000bb]End Select
    End Sub  
[/COLOR][/COLOR]

==============
الاستخدام
في حدث الزر اظهار

كود :
[color=#000000][COLOR=#0000bb]  ShowWindowsVersionOnDesktop[/color][color=#007700]([/color][color=#0000bb]True[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

في حدث الزر اخفاء

كود :
[color=#000000][COLOR=#0000bb]   ShowWindowsVersionOnDesktop[/color][color=#007700]([/color][color=#0000bb]False[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]