تغيير لغة الإدخال في تيكسبوكس أوتوماتيكيا

[غموزي]

السلام عليكم ورحمة الله وبركاته

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

وشكرا مسبقا

111.rar

تم تعديل ديسمبر 25, 2012 بواسطه غموزي

[الـعيدروس]

السلام عليكم

ربما هذا يفيد الصق الاكواد في حدث الفورم

Private Sub TextBox1_Enter()

Application.SendKeys ("%+")

End Sub

Private Sub TextBox2_Enter()

Application.SendKeys ("%+")

End Sub

[غموزي]

شكرا اخي الكريم هذا جيد ولكن إن كان اليوزرفورم يحتوي على عدد كبير من التيكسبوكس ومجال إدخال اللغات مختلف.

وذلك بإجبار كتابة لغة معينة في تيكسبوكس معين.

وشكرا جزيلا.

[الـعيدروس]

طيب جرب هذا الكود من أعمال احد اساتذة المنتدى

التكست الذي تريده بالعربي

تحط في حدث التكست ChaingeLanguage "Arabic"

والانجليزي تحط ChaingeLanguage "English"

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

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

Sub ChaingeLanguage(KBLang As String)

Dim pwszKLID As String

Select Case KBLang

Case "Arabic"

    pwszKLID = "00000401"

Case "English"

    pwszKLID = "00000409"

End Select

LoadKeyboardLayout pwszKLID, 1

End Sub

Private Sub TextBox1_Enter()

ChaingeLanguage "Arabic"

Exit Sub

End Sub

Private Sub TextBox2_Enter()

ChaingeLanguage "English"

Exit Sub

End Sub

[ابو تميم]

ما شاء الله

روعة أستاذ ابو نصار

زادك الله علما ونفع بك الأمة الإسلامية

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

[غموزي]

جزاك اله خير الجزاء أستاذنا الفاضل

تمت العملية بنجاح وذلك بعد تغيير كود العربية إلى الكود 00020401 العربية المغرب

وكود الإنجليزية إلى 0000040c حيث لدي لوحة مفاتيح AZERTYU

حيث استعنت بهذا الموقع في تغيير أكواد اللغات http://msdn.microsoft.com/en-us/goglobal/bb895996.aspx

شكرا جزيلا مرة أخرى