View Full Version : سوال: عوض شدن صفحه كليد
Alipersia
پنج شنبه 23 مهر 1388, 22:48 عصر
:متفکر:سلام چجوري ميتونم موقعه اي كه فرم اجرا ميشه صفحه كليدو بصورت اتوماتيك به حالت فارسي در بيارم.
كدش چيه؟
saadi2
پنج شنبه 23 مهر 1388, 23:12 عصر
این سوالتونو که تو تاپیک قبلی که ایجاد کردید جواب دادم که!!!
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
جمعه 24 مهر 1388, 13:08 عصر
سلام ،نشد!كجا بايد اين كد بنويسم؟
naser_feb8646
جمعه 24 مهر 1388, 13:41 عصر
سلام
دوست عزیز توی رویداد لود فرمتون کد زیر رو بنویسید
'----------
Dim locInputType As New System.Globalization.CultureInfo("FA-IR")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)
'---------
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.