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

[fazly 33]

سلام دوستان

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

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

[haspic123 34]

 

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

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

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

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

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

[arastooms 1,046]

 

کتابخونه 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

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

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

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

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

[امین شاهدی 5,777]

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

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

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

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

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

[armeshi 0]

سلام

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

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

[Kazem Forghani 2,928]

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

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

موفق باشید

[omid1377 44]

Editext1.Gravity = Gravity.NO_GRAVITY

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

[امین شاهدی 5,777]

کتابخونه 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

[mehran901 41]

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

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

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