قرار دادن فیلتر برای ورودی های EditText

[مهدی ایزدی 9,203]

شاید بعضی مواقع لازم بدونید که مثلا کاربر فقط بتونه حروف رو توی EditText وارد کنه و نتونه اعداد، سیمبل ها و حتی نقطه و کاما رو وارد کنه.

نیاز به کتابخانه IME داریم !

خب میتونیم به این صورت عمل کنیم :

Sub Globals
	Dim ime1 As IME
	Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	ime1.SetCustomFilter(EditText1,EditText1.INPUT_TYPE_TEXT,"qwertyuioplkjhgfdsazxcvbnm")
End Sub