غموزي قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 (معدل) السلام عليكم ورحمة الله وبركاته المرجو من السادة الاساتذة الأفاضل تزويدي بكود يقوم بتحويل اللغة أوتوماتيكيا في التيكسبوكس إلى الفرنسي أو العربي حسب الاختيار وشكرا مسبقا 111.rar تم تعديل ديسمبر 25, 2012 بواسطه غموزي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 السلام عليكم ربما هذا يفيد الصق الاكواد في حدث الفورم Private Sub TextBox1_Enter() Application.SendKeys ("%+") End Sub Private Sub TextBox2_Enter() Application.SendKeys ("%+") End Sub 1 رابط هذا التعليق شارك More sharing options...
غموزي قام بنشر ديسمبر 26, 2012 الكاتب مشاركة قام بنشر ديسمبر 26, 2012 شكرا اخي الكريم هذا جيد ولكن إن كان اليوزرفورم يحتوي على عدد كبير من التيكسبوكس ومجال إدخال اللغات مختلف. وذلك بإجبار كتابة لغة معينة في تيكسبوكس معين. وشكرا جزيلا. رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 26, 2012 مشاركة قام بنشر ديسمبر 26, 2012 طيب جرب هذا الكود من أعمال احد اساتذة المنتدى التكست الذي تريده بالعربي تحط في حدث التكست 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 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر ديسمبر 26, 2012 مشاركة قام بنشر ديسمبر 26, 2012 ما شاء الله روعة أستاذ ابو نصار زادك الله علما ونفع بك الأمة الإسلامية جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
غموزي قام بنشر ديسمبر 26, 2012 الكاتب مشاركة قام بنشر ديسمبر 26, 2012 جزاك اله خير الجزاء أستاذنا الفاضل تمت العملية بنجاح وذلك بعد تغيير كود العربية إلى الكود 00020401 العربية المغرب وكود الإنجليزية إلى 0000040c حيث لدي لوحة مفاتيح AZERTYU حيث استعنت بهذا الموقع في تغيير أكواد اللغات http://msdn.microsoft.com/en-us/goglobal/bb895996.aspx شكرا جزيلا مرة أخرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان