semo.pa3x تغيير تنسيق التاريخ والأرقام والدولة في لوحة تحكم الويندوز برمجياً

[SEMO.Pa3x]

السلام عليكم، أحياناً تواجهنا مشكلة في الأكسس وهي تحول الارقام الى العربية خصوصاً اذا كان بجانب الرقم حروف عربية

لذلك دعونا نختصر الوقت على العميل ونقوم بتعديل تنسيقات التاريخ والارقام..الخ برمجياً بدون الطلب من العميل تعديلها يدوياً

اقدم لكم فنكشن للتعديل، يمكنكم التعديل والإضافة بحسب ماتجدوه مناسباً.

 

Public Sub EditControlPanelInternational()
 
    'Define a key registry path
    Dim strComputer
    Dim objRegistry
    Dim strKeyPath
    Dim strValueName
    Dim getValue
    Dim regKeyPath
    Dim strLocaleName, strCountry, strshortDateValue, strlongDateValue, strshortTimeValue, strlongTimeValue, strfirstDayOfWeekValue
    
    Const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
    regKeyPath = "Control Panel\International"
    
    strLocaleName = "en-US"
    strCountry = "United States"
    strshortDateValue = "yyyy-MM-dd"
    strlongDateValue = "dddd, MMMM d, yyyy"
    strshortTimeValue = "h:mm tt"
    strlongTimeValue = "h:mm:ss tt"
    strfirstDayOfWeekValue = "6"
    srtnativedigits = "0123456789"
    
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "LocaleName", strLocaleName
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sCountry", strCountry
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortDate", strshortDateValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sLongDate", strlongDateValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortTime", strshortTimeValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sTimeFormat", strlongTimeValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "iFirstDayOfWeek", strfirstDayOfWeekValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits
    
    Debug.Print "Successfully changed system regional settings."
End Sub

 

للأمانة الفنكشن من كتابة saf لذلك انا قمت بإضافة السطر

srtnativedigits = "0123456789"
objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits

لتغيير تنسيق الأرقام من عربي إلى انجليزي ومن ثم قمت بنقله لكم.

تم تعديل مايو 23, 2021 بواسطه SEMO.Pa3x

[abouelhassan]

شكر وتقدير واحترام من اخيك استاذنا

[king5star]

في ٢٣‏/٥‏/٢٠٢١ at 01:01, SEMO.Pa3x said:

السلام عليكم، أحياناً تواجهنا مشكلة في الأكسس وهي تحول الارقام الى العربية خصوصاً اذا كان بجانب الرقم حروف عربية

لذلك دعونا نختصر الوقت على العميل ونقوم بتعديل تنسيقات التاريخ والارقام..الخ برمجياً بدون الطلب من العميل تعديلها يدوياً

اقدم لكم فنكشن للتعديل، يمكنكم التعديل والإضافة بحسب ماتجدوه مناسباً.

 

Public Sub EditControlPanelInternational()
 
    'Define a key registry path
    Dim strComputer
    Dim objRegistry
    Dim strKeyPath
    Dim strValueName
    Dim getValue
    Dim regKeyPath
    Dim strLocaleName, strCountry, strshortDateValue, strlongDateValue, strshortTimeValue, strlongTimeValue, strfirstDayOfWeekValue
    
    Const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
    regKeyPath = "Control Panel\International"
    
    strLocaleName = "en-US"
    strCountry = "United States"
    strshortDateValue = "yyyy-MM-dd"
    strlongDateValue = "dddd, MMMM d, yyyy"
    strshortTimeValue = "h:mm tt"
    strlongTimeValue = "h:mm:ss tt"
    strfirstDayOfWeekValue = "6"
    srtnativedigits = "0123456789"
    
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "LocaleName", strLocaleName
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sCountry", strCountry
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortDate", strshortDateValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sLongDate", strlongDateValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sShortTime", strshortTimeValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sTimeFormat", strlongTimeValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "iFirstDayOfWeek", strfirstDayOfWeekValue
    objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits
    
    Debug.Print "Successfully changed system regional settings."
End Sub

 

للأمانة الفنكشن من كتابة saf لذلك انا قمت بإضافة السطر

srtnativedigits = "0123456789"
objRegistry.SetStringValue HKEY_CURRENT_USER, regKeyPath, "sNativeDigits", srtnativedigits

لتغيير تنسيق الأرقام من عربي إلى انجليزي ومن ثم قمت بنقله لكم.

تسلم ايدك وفعلاً كنت محتاج حاجة زى دى بس عندي سؤال اعدادات اللغة فى تويب Administrative يجب ان تكون عربي كما موضح بالصورة هل من الممكن تعديلها برمجياً ايضاً .

[SEMO.Pa3x]

في ٢٦‏/٥‏/٢٠٢١ at 14:29, king5star said:

تسلم ايدك وفعلاً كنت محتاج حاجة زى دى بس عندي سؤال اعدادات اللغة فى تويب Administrative يجب ان تكون عربي كما موضح بالصورة هل من الممكن تعديلها برمجياً ايضاً .

تفضل:

 

[abouelhassan]

بعد اذن حضرتك دكتور SEMO.Pa3x

ممكن مثال بعد اذنك استاذى

بارك الله فيك

[king5star]

11 ساعات مضت, SEMO.Pa3x said:

تفضل:

 

شكراً للاهتمام وسرعة التجاوب