با استفاده از این مینی سورس کد، میتوانید متن خود را در شبکه های اجتماعی و همچنین به صورت پیامکی به اشتراک بگذارید Sub share ( your_text As String) Dim share_text As Intent share_text.Initialize(share_text.ACTION_SEND,"") share_text.SetType("text/plain") share_text.PutExtra("android.intent.extra.TEXT",your_text) share_text.WrapAsIntentChooser("ارسال متن از طریق") StartActivity(share_text) End Sub #b4a #basic4android #share_text #android #بیسیک_فور_اندروید #اندروید #برنامه_نویسی_اندروید #تمرین_برنامه_نویسی #اشتراک_گذاری_متن #توسعه_دهنده