رفتن به مطلب

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

نورنما

یافتن آخرین حرف تایپ شده در edittext حتی اگر در وسط متن تایپ بشه

پست های پیشنهاد شده

نورنما    587

سلام به دوستان انجمن 

با این کد ساده ولی بسیار کاربردی که خیلی جا ها به درد میخوره !  میتونید آخرین حرف تایپ شده در edittext رو حتی وقتی در بین متن ها یک حرف جدید تایپ بشه رو به راحتی مشخص و استفاده نمایید .

 

Sub edittext1_TextChanged (Old As String, New As String)

Dim Akharin_harf_taypi As String 					
''استفاده از محل کروسر ومکان نما
if edittext1.SelectionStart>=1 then Akharin_harf_taypi= new.SubString2(edittext1.SelectionStart-1,edittext1.SelectionStart)


'نمایش آخرین حرف تایپ شده حتی اگر در وسط متن تایپ شده  باشد
log (Akharin_harf_taypi)

end sub 

 

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


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

×
×
  • جدید...