منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تحويل لغة الكتابة تلقائيا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] تحويل لغة الكتابة تلقائيا (/showthread.php?tid=3275)

تحويل لغة الكتابة تلقائيا - hachemi - 20-06-14

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

ممكن كود تحويل لغة الكتابة تلقائيا بين العربية و الفرنسية

يعني عند الكتابة في Text1 يكتب عربي
وعند الكتابة في Text2 يكتب فرنسي


وشكرا

RE: تحويل لغة الكتابة تلقائيا - vbnet - 20-06-14

.....

منقول

ضع هذا الكود في مديول 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

.....

RE: تحويل لغة الكتابة تلقائيا - hachemi - 20-06-14

بارك الله فيك الأخ vbnet على المساعدة

RE: تحويل لغة الكتابة تلقائيا - عماد البشبيشى - 06-01-19

مشكور كتير
 تسلم على المجهود الرائع


                    ...............................................................