محدود کردن متن EditText

[mohamaddm 2]

سلام دوستان

من یه EditText در پلکیشن دارم که میخوام محدودش کنم به چندتا حرف یعنی اگه در EditText بیشتر از چهار حرف شدن یه پیغام به کاربر بده و بیشتر از چهار حرف در EditText نوشته نشه و یا اگه در EditText چهار حرف شدند بیا یه کاری را انجام بده؟

ممنون میشم اگه کسی بلده کدش را بذاره؟

[sbr 233]

در 2 ساعت قبل، mohamaddm گفته است :

سلام دوستان

من یه EditText در پلکیشن دارم که میخوام محدودش کنم به چندتا حرف یعنی اگه در EditText بیشتر از چهار حرف شدن یه پیغام به کاربر بده و بیشتر از چهار حرف در EditText نوشته نشه و یا اگه در EditText چهار حرف شدند بیا یه کاری را انجام بده؟

ممنون میشم اگه کسی بلده کدش را بذاره؟

سلام 

Edittext یه رویداد داره به نام TextChanged 

این رویداد به محض تغییر متن درون ادیت تکست میاد و کاری رو که میخوای انجام میده 

مثلا اینجوری 

Sub et_TextChanged (Old As String, New As String)
	If New.Length = 4 Then
		Msgbox("سام بلک","سلام")
	End If
End Sub

الان بعد از اینکه 4 تا حرف واردش شد میاد و اون پیامو نشون میده 

شما هر کاری خواستی میتونی بکنی مثلا بیای ادیت تکست رو غیر فعال کنی و یا هر کاری خواستی

برای اینکه بیشتر از 4 کاراکتر نشه هم میتونی این  کار رو بکنی

Sub et_TextChanged (Old As String, New As String)
	If New.Length > 4 Then
		et.text = Old
	End If
End Sub

اینم میاد و اگه کاراکتر بیشتر از 4 تا شد میاد و همون تکست قبلی رو جایگزین میکنه و نمیزاره تکست جدید بیاد توش