رفتن به مطلب

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


مهدی ایزدی

ارسال های توصیه شده

سلام خدمت همه

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

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...