بدون إستخدام alt+shift إستخدام اللغة من القائمة المنسدلة وإلغاء Alt+Shift

[ebrahim1400]

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

اريد في حال كان يريد المستخدم تغيير اللغة الى اللغة الأنجليزية او اللغة العربية يستخدم القائمة المنسدلة دون إستخدام Alt+Shift

ارجوا سؤالي واضح ولكم جزيل الشكر 

وجزاكم الله الف خير 

 

chang lung.rar

[ابوخليل]

اولا اضبط لغة الكتابة في خصائص مربع النص  = النظام

ثم الصق هذه الجمل داخل محرر النموذج

باعتبار  combo هو مربع التحرير  ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية

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

Private Sub combo_AfterUpdate()
If combo.Value = 1 Then
Call LoadKeyboardLayout("00000409", 1)
ElseIf combo.Value = 2 Then
Call LoadKeyboardLayout("00000401", 1)
End If
End Sub

لا حظ انه يمكنك اضافة العديد من اللغات

[ebrahim1400]

يا ابو خليل . يا ابو خليل ................ابو خليل 

تسلم جزاك الله الف خير  

ولكن لدي سؤال ولو طولت عليك 

من أين أتيت بهذه العبارة التي في الكود

("00000409", 1)

 وكذلك

("00000401", 1)

هل هذا يعني اسم اللغة ام لا ؟ 

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

واسف لو طولت عليك

ولك تحياتي ,,,,,,,,

 

 

[ابوخليل]

نعم هي ما ذكرت 

تفضل :

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

[ebrahim1400]

يا صاحبي الف الف الف شكر والله تعبتك معايه ولك مني جزيل الشكر والعرفان 

والله يقدرني ارد لك جمايك يا صاحبي 

[كرار صبري _ أبو جنى]

السلام عليكم ...

اذا ممكن مثال بعد التطبيق ...

لاني طبقتها لكن لم تعمل ...

[ابو جودي]

في 12/9/2015 at 23:16, karrar sabry said:

السلام عليكم ...

اذا ممكن مثال بعد التطبيق ...

لاني طبقتها لكن لم تعمل ...

وهذا مثال بعد التعديل بكود معلمنا الاستاذ ابو خليل 
اممم
للعلم تم اضافة بعد الاكواد مثلا 

1- لعدم اضافة اى لغة غير موجوده فى الكمبوكس او تجاهل اختيار احد الغتين الوجودتين الان
2- كود لازرار " نسخ - قص - لصق - مسح " التى لم اكن اعلمها وبحثت عنها فوضعتها لتعم الفائدة

وايضا قمت بارفاق قاعدة البيانات بتنسيق 2000-2003 حتى يتثنى للكل الاستفادة 

_updateعن اللغات.rar

[كرار صبري _ أبو جنى]

شكرا جزيلا استاذ محمد ... ربي يحفظك و يسلمك ...

[ابو جودي]

5 ساعات مضت, karrar sabry said:

شكرا جزيلا استاذ محمد ... ربي يحفظك و يسلمك ...

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

[ابوخليل]

     الشكر والدعاء لكل من كتب حرفا يقصد نفع غيره .

       فالمعلومة ليست حكرا على احد ،

     حتى صاحب المسألة يشكر لانه سبب في ثمرة هذا الموضوع .

       لذا يجب ان نعتني بمسألة الاحتساب

          اليس المسلم يعمد الى النوم او الاكل بنية التقوي للعبادة  او بنية طلب الرزق الحلال يؤجر ؟

 

 

  

[كرار صبري _ أبو جنى]

اشكرك مرة اخرى استاذ محمد عصامـے

و بالتأكيد كل الشكر الى الاستاذ ابوخليل

و الى كل الاساتذة فيهم الخير و البركة ...

[أبو عبدالله الحلوانى]

في ٧‏/١٢‏/٢٠١٥ at 23:27, ابوخليل said:

Option Compare Database

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

أستاذى أبو خليل وأستاذ محمد عصام وأستاذ صاحب الموضوع جزاكم الله خيرا جميعا

أستاذى أبو خليل هل سيختلف تعريف المكتبة اذا اختلف نظام التشغيل win7  أو winXp   أو أى اصدار آخر . وجزاكم الله خيرا

أستاذى محمد عصام حمدا لله على السلامة وعود أحمد " أعذرنى جائت متأخرة شيئا ما ولكنى لم أكن متابعا للمنتدى منذو فترة" ولكن نورت المنتدى ووحشتنا "امممممممممممممممممم"

[ابوخليل]

2 ساعات مضت, أبو عبدالله الحلوانى said:

 هل سيختلف تعريف المكتبة اذا اختلف نظام التشغيل win7  أو winXp   أو أى اصدار آخر . وجزاكم الله خيرا

التعريف اعلاه متوافق مع نظام 32 بت

وفي حال كان النظام 64  يلزم  استبداله بالتعريف التالي علما اني لم اجربه 

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

ولو اجريت البحث عبر google  لوجدت مجالا اوسع ومعلومات اشمل