آموزش اشتراک متن در b4a

[mohammad jamalian]

باسلام
من در این جا می خواهم آموزش اشتراک گذاری متن رو در b4a بگم:
ابتدا یک متغیر تعریف می کنیم:


Dim share As Intent

بعد حالا میایم و متغیر خودمون رو به برنامه معرفی می کنیم:


share.Initialize(share.ACTION_SEND,"")

حال نوع مطلب مورد نظر خود را مشخص می کنیم:


share.SetType("text/plain")

حال متن خود را می دهیم:(به جای کلمه Label1.text می توانید از یک string هم استفاده کنید)


share.PutExtra("android.intent.extra.TEXT", Label1.text)

و در ادامه هم کد زیر را می نویسیم:


share.WrapAsIntentChooser("اشتراک بگذاريد")
StartActivity(share)