تغيير نظام الألوان برمجياً

تفضل أخى

هذا الكود يؤدى ما تريد

Option Compare Database
Option Explicit

'-----------------------------------------------------------------------------
' Enums to easily refer to the correct color scheme.
'-----------------------------------------------------------------------------

Public Enum OfficeColorSchemes
InvalidScheme = -1
BlueScheme = 1
SilverScheme = 2
BlackScheme = 3
End Enum

'-----------------------------------------------------------------------------
' Set MS Office to the given Color Scheme.
' Use WarnUser:=false to disable the notification
' The change is not immediate and will only be effective after the
application restarts
'-----------------------------------------------------------------------------
Public Sub SetOfficeColorScheme(scheme As OfficeColorSchemes, Optional
WarnUser As Boolean = True)
On Error GoTo ErrLbl

If scheme = OfficeColorSchemes.InvalidScheme Then Exit Sub
API_Registry.RegSetValueNum API_Registry.HKEY_CURRENT_USER,

If WarnUser Then
Dialog.Box "The change will take effect the next time" & vbCrLf &
End If

Exit Sub
ErrLbl:
If err <> 0 Then MsgBox err.Description & " - " & Erl() & ": " & "
(SetOfficeColorScheme)", vbCritical, "Error"
End Sub

مشكور أخي أبويوسف على اهتمامك

بس هل يمكن أن تستخدم هذا الكود على هذا المثال المرفق.. أو بعبارة أخرى: هل يمكنك أن تعدل على هذا المثال. إذا تكرمت

تغيير نظام الألوان.rar

لا زلت في الانتظار

يا مسهل يا كريم