درخواست راهنمای درباره ادیت تکست

[bahman 165]

سلام دوستان یه سوال داشتم

من با کد

Sub btncopy_Click
    Dim something As BClipboard
    Dim cursor2 As Cursor
    cursor2 = SQL1.ExecQuery("SELECT sms FROM smstb")

    Dim btn2 As Button
    btn2=Sender
    
    cursor2.Position =btn2.Tag
    something.clrText
something.settext(cursor2.GetString("sms"))
    ToastMessageShow("متن در کلیپ بورد کپی شد",False)
    cursor2.Close
End Sub

تو برنامه پیامکیم هر پیامک رو کپی میکنم

حالا میخوام یه دکمه ای قرار بدم اگه زده شد به جای کپی اون پیامک بیاد اون رو تو لایوت l1 در اکتیویتی main بیاد توی Edittext 1 نشون بده

امیدوارم تونسته باشم منظورمو برسونم

 

ممنون

[bahman 165]

یا مثلا روی اون دکمه زدیم متن خاصی بره قرار بگیره روی

 

edit text

 

البته مورد اولی واجبتره

[shahab.es 5,429]

سلام

عزیزم اصلا ربطی به کپی و این چیزا نداره

 

شما توی ساب پراسس گلوبالز یه متغیر ایچجاد کن به اسمmatne_man

dim matne_man as string

تو رویداد کلیک اون دکمه ای که میخوای وقتی روش کلیک شد، متنت بره تو اون ادیت تکست اینطوری کار کن

اسم اتیوتی بعدیت رو میذاریم ادیت تکست و اسم این اکتیویای رو میذاریم متن

matne_man = label1.text
'label1 hamoon label shomas'
startActivity(act_edittext)

توی اکتیویتی کریت Act_edittext به شکل زیر عمل کن

edittext1.text = act_matn.matne_man

سوال دمتون هم اگر هر دو توی یه اکتیویتی هستن که در رویداد دکمه تون به شکل زیر عمل کنید دیگه

edtitext1.text = label1.text

[bahman 165]

بحث اینه من وقتی کپی میکنم یه سطری از دیتابیسم کپی میشه و میخوام همون متن توی دیتابیس که کپی شده بره اونجا نشون داده شه

[shahab.es 5,429]

ببین، شما باید با متغیر ها کار کنی واسه ارتباط بین دو سطر

با این کدی که شما دادی اینطوری میشه

Sub btncopy_Click
    Dim something As BClipboard
    Dim cursor2 As Cursor
    cursor2 = SQL1.ExecQuery("SELECT sms FROM smstb")

    Dim btn2 As Button
    btn2=Sender
    
    cursor2.Position =btn2.Tag
matne_man = cursor2.GetString("sms") 
    cursor2.Close
End Sub

تو اکتیویتی بعدی هم همونطور که بهتون گفتم کار کنید

کپی میشه

فقط این کد هارو در رویداد کلیک دکمه مربوطه قرار بدید.......

[bahman 165]

نشد

[bahman 165]

کسی بلد نبود؟