Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 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

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


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

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

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

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

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


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

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

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


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

  • مطالب مشابه

    • توسط batman1
      سلام.
      ممنون میشم لینک دانلود کتابخانه wifi connect رو بذارید.
      هرچی گشتم نتونستم پیداش کنم.
      از سایت مرجعش هم نتونستم دانلودش کنم.
      ممنون.
    • توسط batman1
      سلام به همه.
      دوستان،من خیلی گشتم دنبال آموزش تصویریه ساین کردن به گوگل با بیسیک،اما چیز زیادی دستگیرم نشد.
      میشه آموزش تصویری چیزی،اگر دارید،معرفی کنید؟
      ممنون.
    • توسط رضا صبوری
      درود
      کتابخانه ی EditText_RS  با قابلیتهای جذاب همچون
      تغییر رنگ متون
      تغییر رنگ متنهای کوچک شده در بالای ادیت تکست
      چرخش ادیت تکست و...

      کتابخانه و سورس