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

[نورنما 613]

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

با این کد ساده ولی بسیار کاربردی که خیلی جا ها به درد میخوره !  میتونید آخرین حرف تایپ شده در 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