تشخیص زبان کیبورد
سلام
از کد پایینی برای شناسایی زبان کیبورد استفاده کردم
منتها برنامم خطا میده، این شرط رو تو رویداد TextChanged، ادیت تکست نوشتم به این صورت:
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ |
Sub EditText1_TextChanged (Old As String, New As String) st=EditText1.Text.SubString2(۰,۱) asci=Asc(st) If (asci>=۶۵ And asci<=۹۰ ) Or (asci>=۹۵ And asci<=۱۲۲) Then cur=s.ExecQuery("SELECT En,Fa FROM tbl WHERE En LIKE '"&EditText1.Text&"%'") For i = ۰ To cur.RowCount-۱ cur.Position=i ListView1.AddTwoLines(cur.GetString("En"),cur.GetString("Fa")) Next Else cur=s.ExecQuery("SELECT En,Fa FROM tbl WHERE Fa LIKE '"&EditText1.Text&"%'") For i = ۰ To cur.RowCount-۱ cur.Position=i ListView1.AddTwoLines(cur.GetString("Fa"),cur.GetString("En")) Next End If End Sub |
در واقع میخوام کاری بکنم که کاربر با وارد کردن عبارتی در ادیت تکست جستجو صورت بگیره ینی دکمه ای جهت جستجو قرار ندم و برنامه خودکار زبان کلمه ی وارده رو تشخیص بده که یا انگلیسی هست یا فارسی.
در سایتهاجستجو کردم اما نه کتابخانه ی تشخیص زبان کیبورد رو پیدا کردم نه سورسی که به کارم بیاد.
ممنون از سایتوت واقعا کمکم کرده
لطفا مثل همیشه راهنماییم کنید.
پاسخ ( 1 )
خطا رفع شد با قرار دادن این شرط در ابتدای کدهای قبلی