رفتن به مطلب
  • 0

تشخیص زبان انتخاب شده کیبورد توسط کاربر


fazly

سوال

سلام دوستان

آیا راهی هست که بفهمیم وقتی کاربر میخواد یه متنی رو بنویسه زبان انتخاب شده مثلاً انگلیسیه یا فارسی؟

مثلاً برای متن داخل Edittext که از راست به چپ باشه یا برعکس

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

 

سلام میشه توضیح بدید این کتابخونه کارش چی؟

من میخام به دستگاه بگم زبان کیبرد رو با کلیک روی یک دکمه عوض کنه 

از چه فرمانی باید استفاده کنم ؟

متشکر از راهنمایی

اندروید مثل ویندوز نیست که یک کیبرد داشته باشه و با یه دستور api زبان رو عوض کنی در اندروید هر کیبرد کار خودشو می کنه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

کتابخونه Recognize رو تیک بزنین 

Sub ED1_TextChanged (Old As String, New As String)
	Dim rec As Recognize
	If rec.checkFarsiCharecter(New) Then
	ED1.Gravity=Gravity.RIGHT
	Else
	ED1.Gravity=Gravity.LEFT
	End If 
End Sub

سلام میشه توضیح بدید این کتابخونه کارش چی؟

من میخام به دستگاه بگم زبان کیبرد رو با کلیک روی یک دکمه عوض کنه 

از چه فرمانی باید استفاده کنم ؟

متشکر از راهنمایی 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام میشه توضیح بدید این کتابخونه کارش چی؟

من میخام به دستگاه بگم زبان کیبرد رو با کلیک روی یک دکمه عوض کنه 

از چه فرمانی باید استفاده کنم ؟

متشکر از راهنمایی

دوست عزیز واسه سوالاتون تاپیک بزنید , چیزی هم که میخواین امکانش نیست که با کد زبان کیبورد عوض شه
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

چطور میتونم" تنظیم زبان "رو تو برنامم بگنجونم

کاربر زبان برنامه رو خودش تغییر بده (فارسی-انگلیسی - عربی و .....)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در رویداد TextChange بنویسید اگر عدد وارد شده A یا B یا C یا... بود EditText1.Gravity بشه Left .

و همین طور اگر ا و ب و ث و... بود راست چین.

موفق باشید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

Editext1.Gravity = Gravity.NO_GRAVITY

اینطوری بنویس خودش اگه فارسی بود راست چین می شه و برعکس

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کتابخونه Recognize رو تیک بزنین 

Sub ED1_TextChanged (Old As String, New As String)
	Dim rec As Recognize
	If rec.checkFarsiCharecter(New) Then
	ED1.Gravity=Gravity.RIGHT
	Else
	ED1.Gravity=Gravity.LEFT
	End If 
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بدون نیاز به کتابخونه و افزایش حجم برنامه راحت میشه کد اسکی رو چک کرد تا در محدوده حرف فارسی اگه بود راست چین در غیر این صورت چپ چین کنه 

من چون شبیه سازم فارسی ساپورت نمیکنه محدوده کد اسکی حروف فارسی رو نتونستم بدست بیارم واسه حروف بزرگ و کوچیک نوشتم میتونید ازش الگو بگیرید و حرف فارسی رو هم با همین الگو اضافه کنید


Sub EditText1_TextChanged (Old As String, New As String)
Dim i As Byte 
i =Asc( EditText1.Text.SubString2(EditText1.Text.Length -1,EditText1.Text.Length)) 
If i >= 65 And i <= 90 Then
Msgbox("harfe bozorg vared shode ","")
else if i >= 97 And i <= 122 Then
Msgbox ("harfe koochik vared shode ","")
End If 

	
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...