بدون إستخدام 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]

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

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

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

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

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

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

[ابو جودي]

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

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

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

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

Expand  

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

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

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

_updateعن اللغات.rar

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

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

[ابو جودي]

  في 11‏/12‏/2015 at 10:48, karrar sabry said:

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

Expand  

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

[ابوخليل]

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

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

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

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

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

 

 

  

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

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

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

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

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

  في 7‏/12‏/2015 at 21:27, ابوخليل said:

Option Compare Database

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

Expand  

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

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

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

[ابوخليل]

  في 11‏/12‏/2015 at 18:39, أبو عبدالله الحلوانى said:

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

Expand  

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

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

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

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