السلام عليكم و رحمة الله و بركاته ..
ممكن كود تحويل لغة الكتابة تلقائيا بين العربية و الفرنسية
يعني عند الكتابة في Text1 يكتب عربي
وعند الكتابة في Text2 يكتب فرنسي
وشكرا
.....
منقول
ضع هذا الكود في مديول
Module مستقل ولتسمه
mdl_Language
كود :
Option Explicit
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Enum ELanguage
Ar '' اللغة العربية
En '' اللغة الإنجليزية
Fr '' اللغة الفرنسية
End Enum
Public Sub Langauge(lang As ELanguage)
Select Case lang
Case ELanguage.Ar
LoadKeyboardLayout "00000401", 1
Case ELanguage.En
LoadKeyboardLayout "00000409", 1
Case ELanguage.Fr
LoadKeyboardLayout "0000040C", 1
End Select
End Sub
استخدم هذه الطريقة في اختيار اللغة لكل
TextBox من خلال حدث
GotFocus لكل واحد منهم مثل
كود :
Private Sub Text1_GotFocus()
Langauge ELanguage.Ar
End Sub
Private Sub Text2_GotFocus()
Langauge ELanguage.Fr
End Sub
.....
بارك الله فيك الأخ vbnet على المساعدة
مشكور كتير
تسلم على المجهود الرائع
...............................................................