• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
batman1

محدود کردن تعداد کاراکتر ورودی edittext

سوال

با سلام.

از دوستان کسی میدونه که جعبه متن رو چه جوری باید به مثلا وارد کردن 2 کاراکتر محدود کرد؟

ممنون.

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تا کنون داده شده است

  • 0

سلام

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

یعنی Property خاصی واسه این ندارند  اگه راه داشت قطعا  میذاشتن

اون لینک بالا رو چک کردم  راه حل اش جالب نیست و استفاده از ime هم خیلی کمکی نمیکنه. وقتی شما خودت طول متن رو میتونی کنترل کنی و کوتاه کنی چرا فیلتر ime میذاری؟  موقع اجرای برنامه اگه متنی داخل ادیت باکس کپی بشه فیلتر ime جلوی اونو نمیگیره

اگر هم قراره توی TextChanged event طول متن رو کنترل کنیم خوب دیگه چه نیاز هست به یه اضافه بار  بنام ime

 

توی اون مثال یه باگ هم هست اون هم اینه که با کوتاه کردن متن، دوباره همین  event صدا زده میشه که بهتره به کمک یه متغییر بولین متوجه تکرار event بشویم و ازش خارج بشیم

فرض کنید  شما یه جعبه متن دارید برای ورود کد پرسنلی و میخواهین حد اکثر 4 رقمی باشه یه متغییر بولین در سطح گلوبال تعریف کنید بنام CuttingTxt

Sub txtPersonelCode_TextChanged (Old As String, New As String)

    If CuttingTxt Then Return                
   
    If New.Length > 4 Then                
        CuttingTxt=True                        
        txtPersonelCode.Text = New.SubString2( 0,4)                        
         txtPersonelCode.SelectionStart = txtPersonelCode.Text.Length                        
     End If                 

    CuttingTxt=False                

End Sub
پسند شده توسط m007moh و batman1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

یک روش ساده و عالی پیدا کردم

Sub EditText1_TextChanged (Old As String, New As String)
       If New.Length >2 Then
        EditText1.Text=Old
                     
    End If

End Sub

پسند شده توسط at13، hocein و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

  • مطالب مشابه