نحوه اشتراگ گذاری چگونه است؟

[qasem 249]

سلام دوستان چگونه میتونم وقتی که کاربر روی دکمه share در برنامه کلیک کرد متن برنامه به اشتراگ گذاشته بشه؟ ببینید من یه برنامه زدم که توی متن برنامه یک دکمه اشتراک گذاری گذاشتم که وقتی کاربر روی آن کلیک کنه ، متن برنامه از طریق نرم افزارهای مختلف به اشتراک گذاشته بشه؟

[fileman 328]

اگه با دیتابیس نوشتی:

Dim matnsms As Label
matnsms.Initialize("")
matnsms.text=cursor3.GetString("txt")
cursor3.Close
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT", matnsms.text)
share.WrapAsIntentChooser("متن را به اشتراک بگذارید....")
StartActivity(share)

[Mansour 39]

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

Dim i As Intent
Dim a As String

  a = cursor1.GetString("Matn")
  i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT",a)

  i.WrapAsIntentChooser("ارسال از طریق...")
   StartActivity(i)