رفتن به مطلب

محدودیت در تعداد کارکتر EditText


مهدی ایزدی

ارسال‌های توصیه شده

چندین روش برای اعمال محدودیت در حداکثر کارکتر مجاز در 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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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


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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...