سورس یـــــخ : کمک برای قرار دادن دکمه اشتراک گذاری متن

[mortezasaidi 6]

با عرض سلام

خدمت تمامی اساتید محترم

 

من سورس یخ را دانلود کردم

اما قابلیت اشتراک گذاری متن از دیتابیس را ندارد

 

خواهش می کنم بفرمایید چگونه این کار را انجام بدهم : تمام راه های گفته شده انجمن را انجام دادم ، اما وقتی روی دکمه اشتراک کلیک می کنم و به طور مثال بر روی " پیام رسانی " کلیک می کنم هیچ متنی را نمی آورد

 

با تشکر

[mortezasaidi 6]

دوستان توجه کنید

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

Sub ntshare_Click
	Dim i As Intent
	i.Initialize(i.ACTION_SEND,"")
	i.SetType("text/plain")
	i.PutExtra("android.intent.extra.TEXT", Ltxt1.text)
	i.WrapAsIntentChooser("اشتراک بگذاريد")
StartActivity(i)

End Sub

[abbas2142 557]

ببین شاید به دردت خورد

Dim share As Intent
	share.Initialize(share.ACTION_SEND,"")
	share.SetType("text/plain")
	share.PutExtra("android.intent.extra.TEXT",l.Text)
	share.WrapAsIntentChooser("اشتراک گذاری با ...")
	StartActivity(share)