تغيير لغة الإدخال في مربع نص

    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

        SendKeys.Send("%(+)")

    End Sub

شكرا اخي 

كود الاخ  محمد فؤاد جميل

لكن ..... ماذا لوكان في الفورم أكثر من تكست بوكس

هل نكتب  لكل تسكست بوكس هذا الكود .....؟

الحل

نضع في حدث تحميل الفورم ... هذا الكود

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("EN"))

شكرا على الاضافة 

مالكـ كتب:

 

كود الاخ  محمد فؤاد جميل

 

 

لكن ..... ماذا لوكان في الفورم أكثر من تكست بوكس

هل نكتب  لكل تسكست بوكس هذا الكود .....؟

 

الحل

نضع في حدث تحميل الفورم ... هذا الكود

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("EN"))

الكود يعمل تمام ولكني ان اجعله يكتب بالعربي ولم ينفع علماً اني غيرت الجزاء "EN"   الى    "AR"  ارجوا بين طريقة الكتابة بالعربية

جرب هذا

 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("ar-eg"))

أو 

 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("ar-sa"))

وستجد هنا في هذا الجدول جميع لغات العالم تقريبا

http://msdn.microsoft.com/en-us/library/system.globalization.cultureinfo(vs.71).aspx

شكراً الى الاخ محمد فؤاد على المعلومة الرائعة