17-10-12, 08:42 PM
كاتب الموضوع : 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]