تشخیص زبان تایپ keyboard

[seyed_27 170]

چطور میشه زیان keyborad رو تشخیص داد

مثلا میخوام برای مقدار دهی به edittext فقط زبان انگلیسی باشه 

پس اگر هنگام مقداردهی زیان غیر انگلیسی بود میخوام به کاربر هشدار بدم که زیان رو عوض کنه

[m007moh 181]

ببین داداش واسه این کار میتونی ی ترفند بزنی 

 

ببین کد Ascii واسه حروف انگلیس اینجوریه

A-Z برابر 65-90 هست

a-z برابر 97-122 هست 

 

حالا بیا تو رویداد change  ادیت تکستت شرط بذار که اگر حرف اول تو این بازه بود انگلیسی هست اگه نبود فارسیه

 

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

 

Dim EditText1 As EditText

Dim st As Char

Dim t As Int

st=EditText1.Text.SubString2(0,1)

t=Asc(st)

If (t>=65 AND t<=90 ) OR (t>=95 AND t<=122) Then

Msgbox("English","")

Else

Msgbox("فارسی","")

End If