كود لاستدعاء اللغة من وبندوز

[حمدى الظابط]

السلام عليكم وكل عام وحضرتكم بخير
اريد كود لاستدعاء لغة الويندوز ليتم تعديل اللغة من داخل قاعدة البيانات عملت بحث فى منتديات كثيرة ولا اجد الجواب فارجو المساعدة مع شرح الكود للاستفادة ولكم جزيل الشكر والتقدير

[Elsayed Bn Gemy]

السلام عليكم
اخى الكريم قم بالتصريح عن هذه الدلة فى النموذج الذى تريد التغيير من خلاله

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long


Private Const eng = 1033 'اللغة الانجليزية الامريكية المثبتة فى اى ويندوز
Private Const Arabic = 3073 'اللغة العربية (مصر)

طبعا قمت بتغيير قيم اللغات على حسب اللغة المثبتة داخل الويندوز الخاص بى

ويمكنك التصريح عن اللغة التى تريد تغيير الكتابة اليه عن طريق هذا الرابط

https://msdn.microsoft.com/en-us/library/ms912047(v=winembedded.10).aspx

بشرط ان تكون مثبتة داخل الويندوز

 

ويمكنك استدعائها من خلال زر امر كالاتى

Call ActivateKeyboardLayout(Arabic, 0)

او اللغة الانجليزية كالاتى

Call ActivateKeyboardLayout(eng, 0)

بن جيمى

[حمدى الظابط]

السلام عليكم
اخى العزيز فى اى حدث اضع الكود الاول ولك جزيل الشكر
وهل ممكن خروج رسالة تفيد بتغير اللغة الى العربية او الانجليزية

تم تعديل مايو 12, 2017 بواسطه حمدى الظابط

[Elsayed Bn Gemy]

داخل النموذج عادى

 

[حمدى الظابط]

المخترم استاذ السيد اشكرك على سرعة الرد
نفذت الخطوات التى ذكرتها ولم افلح مرفق لك النموذج للتعديل ولك تحياتى وارجو اضافة رسالة تفيد بتغير نوع اللغة

تغير اللغة.rar

تغير اللغة.rar

[Shivan Rekany]

14 ساعات مضت, حمدى الظابط said:

المخترم استاذ السيد اشكرك على سرعة الرد
نفذت الخطوات التى ذكرتها ولم افلح مرفق لك النموذج للتعديل ولك تحياتى وارجو اضافة رسالة تفيد بتغير نوع اللغة

تغير اللغة.rar

تغير اللغة.rar

استأذن من استاذي الحبيب @Elsayed Bn Gemy

اتفضل اليك هذا

Option Compare Database
Private Declare Function LoadKeyboardLayout Lib _
"user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Private Sub ÃãÑ0_Click()
    Call LoadKeyboardLayout("00000401", 1) ' ARABIC
End Sub

Private Sub ÃãÑ1_Click()
    Call LoadKeyboardLayout("00000409", 1) ' ENGLISH
End Sub

واليك ملفك بعد تعديل

 

تغير اللغة.rar

[حمدى الظابط]

الاستاذ الغالى شفان اعتذر عن التأخير فى الرد
اشكرك على اهتمامك ولكن للاسف ازرر الاوامر لا تعمل حاولت تشغيلعا وللاسف لا تعطى لى اى نتيجة ارجو معرفتى بالخطاء ولك تحياتى

[Elsayed Bn Gemy]

بارك الله فيكم

اخى الكريم انا اعيش فى مصر واللغة العربية المثبتة لدى هى ( العربية مصر) لذلك استعمل هذه القيم

ابحث ان القيم الخاصة بك فى الرابط المرفق على حسب الدولة التى اخترتها فى اعدادات اللغة

 

عموما قم بتغيير لغة الكتابة الى اى لغة اخرى غير الانجليزية وافتح مرفقك واختر اللغة الانجلزية وانظر هل تعمل ام لا ؟

[حمدى الظابط]

صديقى الراقى بعض البرامج خصوصا التى بياناتها حسابات وارقام يستحسن ان تكون الارقام باللغة العربية فبدل ما ادخل على لغة الويندز واغيراها اريد تغيرها من داخل القاعدة وقد حاولت وجربت مثالك ومثال الاستاذ الفاضل شفان ولكن جميع المحاولات فشلت ولك شكرى وتقديرى 

تم تعديل مايو 15, 2017 بواسطه حمدى الظابط

[Shivan Rekany]

11 ساعات مضت, حمدى الظابط said:

يستحسن ان تكون الارقام باللغة العربية

يا ليت قد قلت هذا مسبقا
مثالنا هو لتغير الكيبورد من الانكليزي الى العربي والعكس

بل اذا تريد ان تدخل الارقام بالعربية اليك هذا الكود اكتبه في حدث عند تحميل  ام عند فتح النموذج لكل مربعات النصية 

Private Sub Form_Load()
Me.RWATIB.NumeralShapes = 2
End Sub

او غير هذا الخاصية في النموذج عند فتح التصميم لمرة واحدة فقط

شوف الصورة

اختر مربع النص و غير خاصية نوميرال شيبس الى ناشينال وليس العربي ام سيستم

واليك هذا النموذج لاستفادة اكثر

 

ادخال الارقام العربية.rar

[حمدى الظابط]

شكرا لك استاذ شفان
ليس هذا هو المطلوب المطلوب هو كود لاستدعاء اللغة من الوندوز نفسه
انظر المرفق به مثال لاستدعاء الاله الحاسبة من داخل الجهاز
اريد الحل كما فى المرفق لتغير اللغة عند الطلب ولك تحياتى

تغير لعة الونوز.rar

[Shivan Rekany]

1 ساعه مضت, حمدى الظابط said:

المطلوب هو كود لاستدعاء اللغة من الوندوز نفسه

استاذنا @Elsayed Bn Gemy اعطاك الطريقة
وانا اعطاك طريقة

واليك ملف تيكس بها ارقام للغات تقدر تستخدمه في مثالي الاعلاه

 

كود اللغة في الكمبيوتر.rar

[حمدى الظابط]

جارى التجربة وشكرا لك وكل عام وحضرتكم بحير

[ابوخليل]

السلام عليكم

اعتقد الاستاذ حمدي يريد مثل هذا

تغير لعة الونوز2.rar

[حمدى الظابط]

الاستاذ الفاضل / ابو خليل
الله الله الله فعلا هذا هو المطوب بالفعل ولك منى كل القدير والاحترام والشكر الجزيل وبارك الله فيك استاذى الجليل وكل عام وحضرتك واسرة المنتدى والمسلمين بخير ولك تحياتى

تم تعديل مايو 16, 2017 بواسطه حمدى الظابط

[ابوخليل]

 

الحمد لله على تحقيق المراد

 

في ١٢‏/٥‏/٢٠١٧ at 06:38, حمدى الظابط said:

اريد كود لاستدعاء لغة الويندوز 

لو قلت : اريد اظهار مربع  حوار اللغة  ..  لما انتظرت كل هذه المدة

فهم السؤال او طرح السؤال بشكل صحيح  هو نصف الاجابة

[حمدى الظابط]

اعتذر عن هذا الخطاء الغير مقصود واشكرك على متبعتك للمواضيع وتوفير الحلول المناسبة للاجابة
ومرة ثانية وثالثة وليس الاخيرة لك منى كل الاحترام