تغير اللغة بطريقة أوتوماتيكية بواسطة الرموز Visual Basic 6.0

[nadir-anass@hotmail.com]

السلام عليكم ورحمة الله تعالى
إخواني الكرام ، لقد قمت بإعداد برنامج project على Visual Basic 6.0 . في هذا البرنامج أستعمل لغتين عربية المغرب و الفرنسية . لدي واجهة لتسجيل المعلومات form تحتوي على عدة خانات textbox منها ما هو مخصص لتسجيل المعلومات باللغة العربية و ما هو مخصص لتسجيل المعلومات باللغة الفرنسية .
أطلب من السادة الكرام الرموز code التي تمكنني من تحويل اللغة بطريقة أوتوماتيكية . بمعني عندما يتلقى textbox1 المخصص للعربية curseur اللغة التي تحدد هي العربية . و عندما يتلقى textbox2 المخصص للفرنسية curseur اللغة التي تحدد هي الفرنسية .

Private Sub Textbox1_GotFocus()
الرموز التي تحول اللغة المحددة إلى العربية
End Sub



Private Sub Textbox2_GotFocus()
الرموز التي تحول اللغة المحددة إلى الفرنسية
End Sub



في انتظار مساعدتكم أعتذر عن الأسلوب الركيك فهذه أول مشاركة و سأكون من الشاكرين و جزاكم الله عنا ألف خير و السلام .:smailes108:

[nadir-anass@hotmail.com]

يا سادة يا كرام لا أحد يرد هل السؤال غير واضح إذا كان كذلك أخبروني وفقكم الله و شكرا.

[Euro]

setkyboardlanguage

[Aboud Aboud]

للـــــــــــــرفع

[mi20]

للرفع لك

..

[s.a.a.a]

thank you.............

[Aboud Aboud]

ممكن تنتظرني كم يوم

[shekoforever]

تفضل أخى
ضع هذه الدالة فى التصاريح
Private Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long



و لتغير اللغة مثلاً
الإنجليزية هى الافتراضية يبقى نكتب

ActivateKeyboardLayout 0 , 1

لو العربية هى اللغة الثانية يكون بالشكل هذا
ActivateKeyboardLayout 1 , 1

لو الفرنسية هى اللغة الثالثة فى الkeyboard layout
يبقى

ActivateKeyboardLayout 2 , 1


أنتهى
و جرب و أخبرنى بالنتيجة

[Aboud Aboud]

Up >>>>>>>>>>>>>>

[Aboud Aboud]

شوف المثال ده
http://www.4shared.com/file/31866964/619cfe23/Aboud.html

الباسوورد aboud

[الفنان زهير]

مثال جيد بارك الله فيك و أدامك ذخرا للمسلمين

[Aboud Aboud]

مثال جيد بارك الله فيك و أدامك ذخرا للمسلمين

عفـــــــــــــوا .......... ودائما بالخدمة :biggrincl

[Aboud Aboud]

وينك اخي nadir-anass@hotmail.com

[Aboud Aboud]

وينك اخي nadir-anass@hotmail.com

هل استفدت من المشروع

[nadir-anass@hotmail.com]

السلام عليكم ورحمة الله و أعتذر عن الغياب الغير المقصود طبعا و الله كفيتم و و فيتم و جزاكم الله ألف ألف حسنة عن كل حرف
و بالنسبة للمثال الأول للأخ الكريم جزاه الله عنا خيرا جزيلا بعد إظافة الدالة و تطبيق البرنامج أصدر error435 مفادها أن keybooard غير محدد .
و بالنسبة للأخ aboud جزاه الله . المثال الذي تم تحميله يعمل بشكل جيدا حفظكم الله جميعا .أن تتقاطر عليك الأجوبة من مختلف الأقطار العربية الإسلامية شيئ جميل جدا يشعرك بروح الوحدة المفقودة و يرفع معنوياتك و يعطيك دفعة إلى الأمام . و أنشر هذا المثال للإستفادة العامة .
في modul standar

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

Public Const KLF_ACTIVATE As Long = &H1

Public Const lg_Francais As String = "0000040C"
Public Const lg_Arabe As String = "00000401"

و ضع declaration في modul سيمكنك من تغيير اللغة في جميع form التي تستعملها في برنامجك
و اللآن مثلا أريد أن أكتب في text1 بالعربية

text1______________ gotofocus

LoadKeyboardLayout lg_Arabe, KLF_ACTIVATE
end sub

الكتابة في text2 بالفرنسية

text2_______________ gotofocus
LoadKeyboardLayout lg_Francais, KLF_ACTIVATE
end sub

و بالنسبة لللإخوة الذين يبحثون عن لغة معينة ليس عليهم إلا أن يدخلوا رقمها في الموديل
بعد أن يعرفوه بطبيعة الحال من هذا الرابط
http://www.microsoft.com/globaldev/reference/win2k/setup/lcid.mspx
مع تحيــــــــــــــــــــــــــــــــــــــــــ ـاتي للجمــــــــــــــــــــــــــــــــــــــــــــــ ـــيع

[Aboud Aboud]

السلام عليكم ورحمة الله و أعتذر عن الغياب الغير المقصود طبعا و الله كفيتم و و فيتم و جزاكم الله ألف ألف حسنة عن كل حرف
و بالنسبة للمثال الأول للأخ الكريم جزاه الله عنا خيرا جزيلا بعد إظافة الدالة و تطبيق البرنامج أصدر error435 مفادها أن keybooard غير محدد .
و بالنسبة للأخ aboud جزاه الله . المثال الذي تم تحميله يعمل بشكل جيدا حفظكم الله جميعا .أن تتقاطر عليك الأجوبة من مختلف الأقطار العربية الإسلامية شيئ جميل جدا يشعرك بروح الوحدة المفقودة و يرفع معنوياتك و يعطيك دفعة إلى الأمام . و أنشر هذا المثال للإستفادة العامة .
في modul standar

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

Public Const KLF_ACTIVATE As Long = &H1

Public Const lg_Francais As String = "0000040C"
Public Const lg_Arabe As String = "00000401"

و ضع declaration في modul سيمكنك من تغيير اللغة في جميع form التي تستعملها في برنامجك
و اللآن مثلا أريد أن أكتب في text1 بالعربية

text1______________ gotofocus

LoadKeyboardLayout lg_Arabe, KLF_ACTIVATE
end sub

الكتابة في text2 بالفرنسية

text2_______________ gotofocus
LoadKeyboardLayout lg_Francais, KLF_ACTIVATE
end sub

و بالنسبة لللإخوة الذين يبحثون عن لغة معينة ليس عليهم إلا أن يدخلوا رقمها في الموديل
بعد أن يعرفوه بطبيعة الحال من هذا الرابط
http://www.microsoft.com/globaldev/reference/win2k/setup/lcid.mspx
مع تحيـــــــــــــــــــــــــــــــــــــــــــاتي للجمــــــــــــــــــــــــــــــــــــــــــــــ ـــيع


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

ولكن شكرا لك اخي