سورس ذخیره خودکار متن در edit text

[mostafaHD 44]

سلام. یه سورسی میخوام که با اجرا شدن برنامه اگه متنی داخل کلیپ بورد گوشی باشه اتوماتیک اونو داخل یه edit text قرار بده.

مرسی.

[ارمین رمضانی دلیجانی 381]

سلام 2 تا سوال در یک تاپیک نپرسید

موفق باشید

[مجید آرتا 5,874]

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

این کد جهت قرار دادن در کلیپ بورد ( متن EditText1 رو کپی می کنه ) :

        Dim r As Reflector
   r.Target = r.GetContext
   Log(r.Target)
   r.Target = r.RunMethod2("getSystemService", "clipboard", "java.lang.String")    
   Log(r.Target)
   Log(r.RunMethod2("setText",EditText1.Text,"java.lang.CharSequence"))

و با این کد میتونید متن کپی شد رو بریزید توی EditText2 :

        Dim r As Reflector
   r.Target = r.GetContext
   Log(r.Target)
   r.Target = r.RunMethod2("getSystemService", "clipboard", "java.lang.String")    
   Log(r.Target)
   If r.RunMethod("hasText") Then
       EditText2.Text=r.RunMethod("getText")
       Log(r.RunMethod("getText"))
   Else
       ToastMessageShow("Error :Nothing",True)
   End If

و واسه اینکه با باز شدن برنامه متن توی ادیت تکست قرار بگیره کافیه کد دوم رو توی رویداد Activity_Create قرار بدید

[mostafaHD 44]

ممنونم.یه سوال دیگه.میشه کدی نوشت که برنامه بتونه تشخیص بده متن داخل edit txt فارسیه یا انگلیسی؟