منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيفية تغيير لغة الإدخال بين العربية والإنجليزية - VB.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : AhmedEssawy

الاجراء التالي يقوم بتغيير لغة الادخال والخاصة بلوحة المفاتيح استنادا الى معرف الدولة المرسل ‏له:‏



كود :
Imports System.Globalization‎
‎…‎
‎…‎
‎…‎
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") ‎
‎' ‎الانجليزية‎‎
SetKeyboardLanguage("en")‎