محدود کردن ادیت تکس به تعداد کاراکتر

[MR.B4A 118]

سلام به همه

یه ادیت تکست دارم که براش یه شمارنده گذاشتم که مثلا کاربر تعداد کاراکترهایی که وارد میکنه رو ببینه ( بیشتر جنبه نمایشی داره )

حالا وقتی که مثلا کاربر 6 تا کاراکتر وارد میکنه، شمارنده من تا 6 میشماره، اما اگر بخواد یه شماره ازش کم کنه، شمارنده من باز هم یکی بهش اضافه میشه و کم نمیشه ( داخل رویداد تکست چنج جعبه متن نوشتم ). من میخوام وقتی کاربر کاراکتری رو حذف کنه، شماره من به جای این که بشه مثلا 7، بشه 6. یعنی از اون هم یکی کم بشه و داخل لیبل خودش نشون بده.

 

و اینکه میحوام بعد از اینکه مثال 10تا کاراکتر وارد کرد، دیگه نتونه یازدهمی رو وارد کنه.

ممنون میشم راهنماییم کنید.

[DexterFstone 396]

سلام با کد زیر اینکارا میتونین انجام بدید

Sub EventName_TextChanged (Old As String, New As String)
	label.text = New.Length ' number of char
	If New.Length > x Then
		edittext1.text = Old
	End If
End Sub

خط اول یک رویداد تکست هست ک هیچ

خط دوم تعداد کارکتر نمایش میده توی لیبل چه کم شه چ زیاد

خط سوم بررسی طول میکنیم و جای x میتونین تعداد نهایی کارکتر وارد کنید (کاربر چ تعداد میتونه کارکتر وار دکنه)

خط چهارم اگه شرط برقرار باشه و از مقدار مد نظر ما بیشتر کارکتر وارد کنه اعمال نمیشه و متن قدیمی جای گزین میشه

ما بقیه خط ها که هوچ