جلوگیری از کپی کردن متن ما در EditText

[مهدی ایزدی 9,203]

سلام خدمت همه

خب شاید برای شما هم پیش اومده باشه که یک جا دوست نداشتید که شخصی متن شما رو بتونه کپی کنه و مجبور شدید به جای EditText از Label استفاده کنید

توی این آموزش یاد میگیریم که چطوری یک EditText خاص رو کاری کنیم که نشه متنش رو Select کرد که کپی بشه ...

خب...

ابتدا کتابخانه IME و Reflection رو فراخوانی کنید

در Sub Globals:

   Dim EditText1, EditText2 As EditText
   Dim Obj1 As Reflector
   Dim IME1 As IME

در Activity_Create هم کد نویسی زیر رو اضافه میکنیم :

Obj1.Target = EditText1 
   EditText1.Tag = "EditText1"
   Obj1.SetOnLongClickListener("EditText1_LongClick")
   IME1.Initialize("")

توی کد نویسی Activity Create در خط سوم رویداد EditText1_LongClick رو تعریف کردیم و در خط اول و خط دوم هم EditText مورد نظر رو انتخاب کردیم.

خط چهارم هم که نیاز به توضیح نداره دیگه . همگی استادین.

Sub EditText1_LongClick(viewtag As Object) As Boolean
   IME1.HideKeyboard
   Return False
End Sub

به همین راحتی . موفق باشید.