• اطلاعیه ها

    • H@mid.RS

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

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

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

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

      کسب درآمد   پنجشنبه, 31 فروردین 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
پسند شده توسط batman1 و m007moh

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


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

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

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

End Sub

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

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


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

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

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

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

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


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

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

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


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

  • مطالب مشابه

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

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