ترفند B4A: اشتراک‌گذاری متن با برنامه‌های دیگر

این کد منوی استاندارد اشتراک‌گذاری اندروید را باز می‌کند؛ همان پنجره‌ای که تلگرام، واتساپ، پیامک و هر برنامه دیگری که متن قبول کند را نشان می‌دهد. Intent از نوع ACTION_SEND می‌سازی

توضیحات محصول

این کد منوی استاندارد اشتراک‌گذاری اندروید را باز می‌کند؛ همان پنجره‌ای که تلگرام، واتساپ، پیامک و هر برنامه دیگری که متن قبول کند را نشان می‌دهد. 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