تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار اسم النظام + اصداره على سطح المكتب
#1
كاتب الموضوع : 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]
}}}
تم الشكر بواسطة:



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


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