تخصيص لغة إفتراضية للتعامل بها داخل النموذج

استخدم هذا الكود

Imports System.Globalization

SetKeyboardLanguage("ar-SA")

اخوي

اين يوضع الكود

SetKeyboardLanguage("ar-SA")

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

أحببت أن تكون أول مشاركة لي مفيدة إن شاء الله

أخي أبو خالد

ضع الدالة التالية لديك :

Public Sub SetKeyboardLanguage(ByVal culName As String)‎
      Dim MyLng As New CultureInfo(culName)‎
      Dim InLang As InputLanguage = InputLanguage.FromCulture(MyLng)‎
      InputLanguage.CurrentInputLanguage = InLang
End Sub

واستدعها بالأمر السابق

SetKeyboardLanguage("ar-SA")

شكراً جزيلاً إخواني جميعاً...

وجعلها الله في ميزان أعمالكم.

اخوي بندر ..

شكرا جزيلا لك

عفوا اخوي

ما اشتغلت معاي في 2005

ما وجد InputLanguage

إخواني جميعاً لم تعمل الشفرة في VB.Net2005 فهل من مساعدة بلييييييييييييييييس..

نفذت نفس الشفرة ولم أجد أي أخطاء ولكن عند التنفيذ لم ينفذ العمل لمـــــــــــــــــــــــاذا ؟

بسيطة

هذه الدالة أستخدمها من أيام Vb2003 وهي تعمل بشكل رائع على Vb2003 و Vb2005

لقلب لغة لوحة المفاتيح للعربية

    Public Sub LangArabic()
        Dim Lang As InputLanguage
        For Each Lang In InputLanguage.InstalledInputLanguages
            If Lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
                InputLanguage.CurrentInputLanguage = Lang
            End If
        Next
    End Sub

ولقلب لغة لوحة المفاتيح للانكليزية

Public Sub LangEnglish()
        Dim Lang As InputLanguage
        For Each Lang In InputLanguage.InstalledInputLanguages
            If Lang.Culture.EnglishName.ToUpper Like "*english*".ToUpper Then
                InputLanguage.CurrentInputLanguage = Lang
            End If
        Next
    End Sub

قد تحتاج للاستيراد

Imports System.Windows.Forms

إن كنت وضعت الدالة في Module وليس داخل الفورم

شكراً جزيلاً أخي samerselo لقد نجحت الشفرة 100%.