عوض شدن صفحه كليد

[Alipersia]

:متفکر:سلام چجوري ميتونم موقعه اي كه فرم اجرا ميشه صفحه كليدو بصورت اتوماتيك به حالت فارسي در بيارم.
كدش چيه؟

[saadi2]

این سوالتونو که تو تاپیک قبلی که ایجاد کردید جواب دادم که!!!



PublicSub farsi()
Dim myCulture AsNew Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(myCulture)
EndSub

PublicSub english()
Dim myCultureen AsNew Globalization.CultureInfo("En-Us")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(myCultureen)
EndSub


بعد در رویداد فرم لود خودتون این کد رو کافیه بذارید :

farsi()

[Alipersia]

سلام ،نشد!كجا بايد اين كد بنويسم؟

[naser_feb8646]

سلام
دوست عزیز توی رویداد لود فرمتون کد زیر رو بنویسید



'----------
Dim locInputType As New System.Globalization.CultureInfo("FA-IR")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)
'---------