PDA

View Full Version : سوال: تعیین زبان textbox


msadgd
جمعه 27 فروردین 1389, 17:54 عصر
با سلام خدمت دوستان.
قبل ازهرچیز بگم که search کردم نبودتوی تاپیکهای vb . من میخواستم با ورود کاربر به یک textbox تشخیص بده اگر زبان فارسی بود، اتوماتیک به انگلیسی تغییر کنه.
ممنون از راهنماییتون.
iran_sky
جمعه 27 فروردین 1389, 18:15 عصر
سلام دوست عزیز
منظورت اینکه فقط در textbox انگلیسی تایپ کنه
hero4000
شنبه 28 فروردین 1389, 09:13 صبح
توي رويداد GotFocus تکس باکستون دستور زير رو بنويسيد
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("en-US"))
msadgd
شنبه 28 فروردین 1389, 23:30 عصر
سلام دوست عزیز
منظورت اینکه فقط در textbox انگلیسی تایپ کنه

بله عزیز منظورم همینه
msadgd
شنبه 28 فروردین 1389, 23:38 عصر
توي رويداد GotFocus تکس باکستون دستور زير رو بنويسيد
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("en-US"))

ممنون hero جان. درست شد. اما اگر تکست بعدیش بخواد مقدار فارسی بگیره چی؟ چون اینجوری که توی راه حلت گفتی، کلا زبان روی فرم انگلیسی میشه و حالا اگر بخایم تکست باکس بعدی رو پر بکنیم، اونوقت زبان انگلیسیه و فارسی نیست. مسلما راهش اینه که چک کنی اگه انگلیسی بود تبدیلش بکنه به فارسی. اما توی شرطش چی می نویسی؟
sahele_sheni
یک شنبه 29 فروردین 1389, 00:54 صبح
If (InputLanguage.CurrentInputLanguage.Culture.ToStri ng() = "en-US") Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR"))
End If

موفق باشید
msadgd
یک شنبه 29 فروردین 1389, 01:10 صبح
ممنون از پاسخ خوبتون. حل شد :چشمک:
hero4000
یک شنبه 29 فروردین 1389, 08:20 صبح
دوست عزيز نياز به شرط نداره شما کافيه در رويداد Leave Focus همين تکس باکستون دستور زير رو بنويسيد


InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR"))