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
seyed_27

مشکل RequestFocus در edittext

سوال

با سلام خدمت دوست گرامی

 

1- یک سری edittext هست که کاربر باید به ترتیب توش عدد تک رقمی وارد کنه

2- به محض وارد کردان عدد فوکوس باید بره به edit دیگه تا آخرین edit

3-وقتی edit آخر مقدار گرفت به کاربر پیام بده

4- اگر هم edit  جاری مقداری داشت مقدارش حذف بشه و مقدار جدیدی که تایپ میشه بجاش قرار بگیره

سورس رو ضمیمه کردم

لطفا اشکالاتش رو بگیرید

با تشکر

New folder.zip

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


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

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

  • 0

درود


شما با دستور زیر و ترتیب ادیت تکست ها رو قرار بدید و دستور زیر رو از اول تا اخرین ادیت تکست قرار بدید :



Sub EditText1_TextChanged (Old As String, New As String)
If New.Length>3 Then
EditText2.RequestFocus
End If
End Sub

من در کد بالا تعریف کردم که با وارد کردن چهار حرف عمل انتقال به ادیت تکست بعدی انجام بشه


و در نهایت شما در ادیت تکست اخری بجای انتقال کد پیام رو قرار بدید به صورت زیر:



Sub EditText4_TextChanged (Old As String, New As String)
If New.Length>3 Then
Msgbox("پیغام","عنوان")
End If
End Sub

موفق باشید


پسند شده توسط salmana، seyed_27 و Sina

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


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

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

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

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

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


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

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

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


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