محدودیت در تعداد کارکتر 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.Initialize("ime1")
	ime1.SetLengthFilter(EditText1,10)
End Sub

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

روش دیگه ای که وجود داره به این صورت میتونیم عمل کنیم و نیاز به کتابخانه ی خاصی هم نداره :

Sub EditText1_TextChanged (Old As String, New As String)
	If New.Length >= 10 Then
		EditText1.Text = Old
		ToastMessageShow("تعداد کارکتر مجاز شما برای وارد کردن به تمام رسید",True)
	End If
End Sub