كود تغيير لغة الكيبورد من انجليزي الى عربي والعكس

[flyer13]

اخواني الكرام ممكن كود تغيير الكيبورد من إنجليزي الى عربي والعكس لاني عندي مشروع تصميم قاموس كلمات

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

بـ alt+shfit ولكم جزيل الشكر والتقدير ،،،

[عبد الله فتحي]

هذ السطر في قسم التصريحات العامة General_Declarartion:

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

وهذا للتحويل إلى اللغة العربية:

LoadKeyboardLayout "00000401", 1

وهذا للتحويل إلى اللغة الإنجليزية:

LoadKeyboardLayout "00000409", 1

:)

[flyer13]

يعطيك الف عافية أخوي على التجاوب السريع ماقصرت والله

أخوي اخوك في الله جديد في الاكواد لو تشرحلي بخطوات بسيطة وين أحط هذه الأكواد الثلاثة :lol:

هل أنسخ السطر بالكامل في في خانة ( Input Mask ) ?? أم ماذا ؟؟؟ :pp:

شوية شرح بسيط :$

مشكور مرة اخرى

ملاحظة: ماذا تقصد بـ هذ السطر في قسم التصريحات العامة General_Declarartion:

تم تعديل مايو 22, 2004 بواسطه flyer13

[عبد الله فتحي]

الكود يتم كتابته في شاشة الكود والتي يمكن إظهارها عن طريق الضغط على alt + F11 ..

على سبيل المثال قم بتصميم نموذج جديد يحتوي على أداتي زري Command Button وأداة مربع نص TextBox ..

قم بالنقر بزر الماوس الأيمن على الأداة Command Button وقم باختيار إنشاء حدث ثم منشئ البرامج ..

هنا ستظهر نافذة الكود ..

ستجد بأعلى نافذة الكود قائمتين منسدلتين بجوار بعضهما البعض ..

اختر في اليسرى General وهنا سينقلك لقسم التصريحات العامة حيث يمكنك تعريف المتغيرات العامة هنا أو استخدام دوال ال API كما هو الحال بالنسبة لهذا الخلاص ..

الخلاصة: قم بنسخ السطر التالي هناك

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

ثم بعد ذلك اختر من القائمة المنسدلة إحدى أدوات ال Command Button وقم بوضع هذا السطر:

LoadKeyboardLayout "00000401", 1

وفي الأداة الثانية قم بوضع السطر الآخر

LoadKeyboardLayout "00000409", 1

بعد ذلك قم بتجربة البرنامج وانظر كيف نقوم بالتحويل بين اللغتين عن طريق الضغط على الأزرة ..

تحياتي :(

[flyer13]

جزاك الله ألف خير ، أخيراً ضبط معاي (y) :lol:

مشكور مرة أخرى

[مهند عبادي]

الحل الأسهل هو استخدام خاصية "لغة لوحة المفاتيح"

ونضعها عربي أو English حسب الرغبة

[عبد الله فتحي]

على الرحب أخي flyer13 :(

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

بالتوفيق :(

[noursh]

ما اسم المكتبة التي يجب إضافتها

إذ أني وضعت هذا الكود في الحدث تحميل النافذة (والتي تحوي عدة خانات) وأريد عند فتحها أن يحمل إلى العربي بشكل تلقائي دون التغيير إلى الانكليزي أبداً

لذلك ظهرت الرسالة التالية: sub or function not found

وهل أحتاج إلى كود آخر لمنع التحويل إلى اللغة الانكليزية بشكل دائم

[عبد الله فتحي]

بالنسبة للمكتبة التي يستخدمها فهي ال user32.dll ..

ولكنك لا تحتاج إلى إضافتها في أي مكان ..

فقط عليك كتابة الكود كما بالأعلى ..

ولقد أشار الأخ مهند إلى طريقة أخرى .. ولكني لا أعمل على الأكسس حالياً فلا أستطيع تجربتها ..