این کد منوی استاندارد اشتراکگذاری اندروید را باز میکند؛ همان پنجرهای که تلگرام، واتساپ، پیامک و هر برنامه دیگری که متن قبول کند را نشان میدهد. Intent از نوع ACTION_SEND میسازیم، نوع داده را text/plain تعیین و متن ادیت باکس edtValue را با PutExtra به Intent میچسبانیم. WrapAsIntentChooser عنوان دلخواه «ارسال با» را بالای منو میگذارد. این سادهترین راه اشتراکگذاری است و به هیچ مجوز یا کتابخانهای نیاز ندارد.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۰ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub btnMain_Click
Dim share As Intent
share.Initialize(share.ACTION_SEND, "")
share.SetType("text/plain")
share.PutExtra(share.EXTRA_TEXT, edtValue.Text)
share.WrapAsIntentChooser("ارسال با")
StartActivity(share)
End Subمحصولات مشابه