اخواني الأعزاء
أولاً: ارجو منكم التوجه بالدعاء إلى العلي القدير بأن يرأف باخواننا المجاهدين في ليبيا وينصرهم على الطاغية معمر القذافي ومرتزقته
ثانياً: هل يمكن تغيير نظام الألوان الخاص بالأكسس برمجياً
بارك الله فيكم جميعاً
اخواني الأعزاء
أولاً: ارجو منكم التوجه بالدعاء إلى العلي القدير بأن يرأف باخواننا المجاهدين في ليبيا وينصرهم على الطاغية معمر القذافي ومرتزقته
ثانياً: هل يمكن تغيير نظام الألوان الخاص بالأكسس برمجياً
بارك الله فيكم جميعاً
تفضل أخى
هذا الكود يؤدى ما تريد
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
مشكور أخي أبويوسف على اهتمامك
بس هل يمكن أن تستخدم هذا الكود على هذا المثال المرفق.. أو بعبارة أخرى: هل يمكنك أن تعدل على هذا المثال. إذا تكرمت
يا مسهل يا كريم