حل مشکل دکمه پاک کن برای edit text

[arastooms 1,046]

سلام به اساتید عزیز 
همونطور که در سورس مشاهده میکنید 
یک ادیت تکس داریم با 2 دکمه 
یکی کلا ادیت تکس رو خالی میکنه 
و دیگری میاد دونه دونه کاراکتر ها رو پاک میکنه 

مشکل اینجاست که "
وقتی میاد دونه دونه کاراکتر ها رو پاک میکنه از آخر 
خود " کوسور تایپ" منتقل میشه اول کلمه تایپ شده 

این چه مشکلی ایجاد میکنه 

با یک مثال توضیح میدم 

شما اگر قصد داشته باشید تایپ کنید " اندروید " و به اشتباه گزینه آخر رو تایپ کنید "ف" 
که میشه " اندرویف" 
حالا نیاز دارید یک کاراکتر رو پاک کنید
میاید دکمه "یکی یکی پاک کن " رو میزنید و حرف "ف" پاک میشه

/////////////////////////
تا اینجا همه چی خوبه 
/////////////////////////
حالا اگر حرف "د" رو تایپ کنید !!!!!
می بینید که این حرف اول کلمه تایپ میشه!!!!
در واقع کورسور نوشتن حروف میره اول کلمه ؟
///////////////////////
خوشحال میشم کمکم کنید در اصلاح این فرمان
با تشکر

http://s3.picofile.com/file/8219482518/mesal.zip.html
 

[arastooms 1,046]

 

سلام

 

کد زیرو امتحان کردید ؟؟

Private EditText1 As EditText
If EditText1.Text.Length = 0 Then
Dim str As String = EditText1.Text
str = EditText1.Text.SubString2(EditText1.Length,str.Length-1)
End If

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

من سورس رو در پست اول ضمیمه کردم و کد شما رو هم روش امتهان کردم ولی به نتیجه ای نرسیدم 

مشکل نمی دونم کجاس اگر وقت داشتی یه نگاهی به سورس نمونه بنداز شاید اگر اصلاح بشه به درد دوستان هم بخوره جایی!

با تشکر 

[arastooms 1,046]

سلام و هنوز منتظر یاری دوستان هستم 

[Elyas Erfani 3,582]

سلام

 

کد زیرو امتحان کردید ؟؟

Private EditText1 As EditText
If EditText1.Text.Length = 0 Then
Dim str As String = EditText1.Text
str = EditText1.Text.SubString2(EditText1.Length,str.Length-1)
End If