اذهب الي المحتوي
أوفيسنا

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


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

:)

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه 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

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

تحياتي :(

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information